More liberal parsing of version numbers.
authorAndreas König <a.koenig@mind.de>
Thu, 24 Aug 2000 13:51:57 +0000 (15:51 +0200)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 24 Aug 2000 13:46:42 +0000 (13:46 +0000)
Subject: Re: CPAN.pm beta for testing available
Message-ID: <m34s4aanc2.fsf@ak-71.mind.de>

p4raw-id: //depot/perl@6797

lib/CPAN.pm

index 6de43d3..aadc2a9 100644 (file)
@@ -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