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