Packages::Search: Fix fallback suites

Leftover from the codenames move.

diff --git a/lib/Packages/Search.pm b/lib/Packages/Search.pm
index ebb1b7d8f1e025ec4d5b48ab8b08877547e0126c..d3872672edeadfadc8c259d2546b4141631b7121 100644 (file)
--- a/lib/Packages/Search.pm
+++ b/lib/Packages/Search.pm
@@ -103,11 +103,11 @@ sub read_entry {
 
 #FIXME: make configurable
 my %fallback_suites = (
-                      'oldstable-backports' => 'oldstable',
-                      'oldstable-volatile' => 'oldstable',
-                      'stable-backports' => 'stable',
-                      'stable-volatile' => 'stable',
-                      experimental => 'unstable' );
+                      'sarge-backports' => 'sarge',
+                      'sarge-volatile' => 'sarge',
+                      'etch-backports' => 'etch',
+                      'etch-volatile' => 'etch',
+                      experimental => 'sid' );
 
 sub read_entry_simple {
     my ($hash, $key, $archives, $suite) = @_;