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 | 921ba62a91d1a5b98924b5613fee051fa5acbf32 (patch) | |
| tree | fc8481ca2c76d3047f94c0201d3b816ff72e8265 | |
| parent | 7792750d38acd6175cfcbf33a03a08faadcd5e34 (diff) | |
| download | perl-921ba62a91d1a5b98924b5613fee051fa5acbf32.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
| -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 |