summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/CPAN/Version.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CPAN/Version.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/CPAN/Version.pm6
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) {