diff options
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) { |