X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=lib%2FDeb%2FVersions.pm;h=606f75301335ec332d77943dd2a963d67114ddd8;hb=38de1f8665b655236fe7ecefc2d1359c4defdf98;hp=d8d8282a3fcd39d3324dc5536632ac203d310668;hpb=d833a5eed5296d1a24c35e8f0802f8291037198d;p=deb%2Fpackages.git

diff --git a/lib/Deb/Versions.pm b/lib/Deb/Versions.pm
index d8d8282..606f753 100644
--- a/lib/Deb/Versions.pm
+++ b/lib/Deb/Versions.pm
@@ -152,7 +152,8 @@ sub _lcmp {
     return length( $v1 ) <=> length( $v2 );
 }
 
-our @SUITES_SORT = qw( woody oldstable sarge stable stable-proposed-updates
+our @SUITES_SORT = qw( bo hamm slink potato woody
+		       oldstable sarge stable stable-proposed-updates
 		       etch etch-m68k testing testing-proposed-updates lenny
 		       sid unstable experimental
 		       warty hoary breezy breezy dapper edgy feisty gutsy );
@@ -176,11 +177,11 @@ sub suites_cmp {
 	$cmp_b = $suites_sort{$1} - $archive_sort{$2}
 	if $s_b =~ m;^(.+?)[/-](.*)$;o;
     }
-    return ($cmp_a <=> $cmp_b);
+    return ($cmp_b <=> $cmp_a);
 }
 
 sub suites_sort {
-    return sort { suites_cmp( $b, $a ) } @_;
+    return sort { suites_cmp( $a, $b ) } @_;
 }
 
 sub priority_cmp {