X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=lib%2FDeb%2FVersions.pm;h=eb83819b7e4794ab4efa0c40357dbbb304b9a9f9;hb=e88cc8fb37d6809017036b4f1e022cdb746a1fe1;hp=078bc520be5b34ca343cc98bc0fbc3bd49657600;hpb=547737cf56224b3bfd95822cebe01890fdc7e829;p=deb%2Fpackages.git diff --git a/lib/Deb/Versions.pm b/lib/Deb/Versions.pm index 078bc52..eb83819 100644 --- a/lib/Deb/Versions.pm +++ b/lib/Deb/Versions.pm @@ -156,7 +156,7 @@ 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 ); + warty hoary breezy dapper edgy feisty gutsy intrepid jaunty); our @ARCHIVE_SORT = qw( non-US security updates volatile backports ); our @PRIORITY_SORT = qw( required important standard optional extra ); my $i = 1000; @@ -177,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 {