Permalink
Browse files

Account for possible 'v' chars in front of versions for perl.

See Exporter-Declare. Why me?!?!1
  • Loading branch information...
1 parent 5499257 commit 1e9d7e475d2963a69d7c7914794476ce9beb07b6 @juster committed Aug 4, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 lib/CPANPLUS/Dist/Arch.pm
View
2 lib/CPANPLUS/Dist/Arch.pm
@@ -909,7 +909,7 @@ sub _extract_makedepends
sub _translate_perl_ver
{
my ($perlver) = @_;
- return $perlver unless $perlver =~ /\A(\d+)[.](\d{3})(\d{1,3})\z/;
+ return $perlver unless $perlver =~ /\Av?(\d+)[.](\d{3})(\d{1,3})\z/;
# Re-apply the missing trailing zeroes.
my $patch = $3;

0 comments on commit 1e9d7e4

Please sign in to comment.