From: Andreas König <a.koenig@mind.de>
Date: Thu, 24 Aug 2000 13:51:57 +0000 (+0200)
Subject: More liberal parsing of version numbers.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=99c3d640ef02e1516696ab4f3d226848d654cb4a;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/lib/CPAN.pm b/lib/CPAN.pm
index 6de43d3..aadc2a9 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