fixes #29

DrHyde · Apr 14, 2014 · 56dc98e · 56dc98e
1 parent 56d8b73
commit 56dc98e
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/lib/CPANdeps.pm b/lib/CPANdeps.pm
@@ -193,7 +193,7 @@ sub go {
         os       => ($q->param('os') || ANYOS),
         # ugh, sorting versions is Hard.  Can't use version.pm here
         perls    => [ 'latest', ANYVERSION,
-            sort {
+            reverse sort {
                 my($A, $B) = map {
                     my @v = split('\.', $_);
                     $v[2] = defined($v[2]) ? $v[2] : 0;

diff --git a/templates/cpandeps.tt2 b/templates/cpandeps.tt2
@@ -98,6 +98,13 @@ pageTracker._trackPageview();
           [% FOREACH thisperl = perls %]
             <option value="[% thisperl %]" [% IF thisperl == perl %] selected="selected" [% END %]>
               [% thisperl %]
+              [% IF thisperl.split('\.').size == 2 AND
+                 thisperl != '5.5' AND
+                 thisperl != '5.4' AND
+                 thisperl != '5.3'
+               %]
+                (any sub-version)
+              [% END %]
               [% IF thisperl == 'latest' %] ([% latest_perl %]) [% END %]
             </option>
           [% END %]