diff options
author | Andreas König <a.koenig@mind.de> | 2000-08-24 15:51:57 +0200 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-24 13:46:42 +0000 |
commit | 99c3d640ef02e1516696ab4f3d226848d654cb4a (patch) | |
tree | fc8481ca2c76d3047f94c0201d3b816ff72e8265 /lib/CPAN.pm | |
parent | c77385cf2f94312c5b758f0fae0fd5b1afe51cd6 (diff) | |
download | perl-99c3d640ef02e1516696ab4f3d226848d654cb4a.tar.gz |
More liberal parsing of version numbers.
Subject: Re: CPAN.pm beta for testing available
Message-ID: <m34s4aanc2.fsf@ak-71.mind.de>
p4raw-id: //depot/perl@6797
Diffstat (limited to 'lib/CPAN.pm')
-rw-r--r-- | lib/CPAN.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/CPAN.pm b/lib/CPAN.pm index 6de43d3107..aadc2a969c 100644 --- a/lib/CPAN.pm +++ b/lib/CPAN.pm @@ -4806,7 +4806,8 @@ sub vstring { sub readable { my($self,$n) = @_; - return $n if $n =~ /^[\w\-\+\.]+$/; + $n =~ /^([\w\-\+\.]+)/; + return $1 if length($1)>0; if ($] < 5.006) { # or whenever v-strings were introduced # we get them wrong anyway, whatever we do, because 5.005 will # have already interpreted 0.2.4 to be "0.24". So even if he |