X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=lib%2FDeb%2FVersions.pm;h=53da03076329001a90359ee473630e4ac450190d;hb=426806714669eb8be697d1f2c1b37e5a820e8647;hp=fcc8e31170a754b170047073b31aefde6c18b592;hpb=00a3b2eb3a2ba0470e5f07adb09d00662d3e89f3;p=deb%2Fpackages.git diff --git a/lib/Deb/Versions.pm b/lib/Deb/Versions.pm index fcc8e31..53da030 100644 --- a/lib/Deb/Versions.pm +++ b/lib/Deb/Versions.pm @@ -1,6 +1,5 @@ # # Deb::Versions -# $Id$ # # Copyright 2003, 2004 Frank Lichtenheld # @@ -16,7 +15,7 @@ # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software -# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. # =head1 NAME @@ -153,10 +152,16 @@ sub _lcmp { 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; @@ -177,11 +182,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 {