diff options
| author | Karl Berry <karl@freefriends.org> | 2015-04-26 22:16:26 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2015-04-26 22:16:26 +0000 |
| commit | 342e672574c4e67d510e46ab6acd0e21a7d0cf54 (patch) | |
| tree | 79e04202d08c0404bbd780bd26c1e34710e539b6 /Master/tlpkg/tlperl/lib/CPAN/Version.pm | |
| parent | be2706af7c57a0ef0f4d4e9f684ca4ef74922a82 (diff) | |
(tl)perl 5.20.2 for windows, from siep
git-svn-id: svn://tug.org/texlive/trunk@37064 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CPAN/Version.pm')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/CPAN/Version.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Master/tlpkg/tlperl/lib/CPAN/Version.pm b/Master/tlpkg/tlperl/lib/CPAN/Version.pm index 43aaa1ce911..fa75221d9da 100644 --- a/Master/tlpkg/tlperl/lib/CPAN/Version.pm +++ b/Master/tlpkg/tlperl/lib/CPAN/Version.pm @@ -2,7 +2,7 @@ package CPAN::Version; use strict; use vars qw($VERSION); -$VERSION = "5.5001"; +$VERSION = "5.5003"; # CPAN::Version::vcmp courtesy Jost Krieger sub vcmp { @@ -10,6 +10,10 @@ sub vcmp { local($^W) = 0; CPAN->debug("l[$l] r[$r]") if $CPAN::DEBUG; + # treat undef as zero + $l = 0 if $l eq 'undef'; + $r = 0 if $r eq 'undef'; + return 0 if $l eq $r; # short circuit for quicker success for ($l,$r) { |