This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
backport a71f1801ba6371e2eebdcb98a2263de5d6b9a8fd
authorH.Merijn Brand <merijn@nb09.procura.nl>
Wed, 12 Aug 2009 07:31:34 +0000 (09:31 +0200)
committerH.Merijn Brand <merijn@nb09.procura.nl>
Wed, 12 Aug 2009 07:31:34 +0000 (09:31 +0200)
U/installdirs/inc_version_list.U

index a4d3c96..39f558b 100644 (file)
@@ -73,6 +73,7 @@ if (-d $stem) {
     chdir($stem);
     ;@candidates = map {
        [ $_, pack "sss", split m/[._]/, "$_.0.0" ] } glob("5.*");
+    ;@candidates = sort { $a->[1] cmp $b->[1]} @candidates;
 }
 else {
     ;@candidates = ();