return length( $v1 ) <=> length( $v2 );
}
-our @SUITES_SORT = qw( 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 );
+our @SUITES_SORT = qw( woody
+ sarge
+ oldstable
+ etch etch-m68k
+ stable stable-proposed-updates
+ lenny
+ testing testing-proposed-updates
+ squeeze
+ sid unstable experimental
+ warty hoary breezy dapper edgy feisty gutsy hardy intrepid jaunty);
our @ARCHIVE_SORT = qw( non-US security updates volatile backports );
our @PRIORITY_SORT = qw( required important standard optional extra );
my $i = 1000;
$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 {