Fix problems with 65a7878 on v5.10.x

Author: bingos

lib/ExtUtils/MM_Unix.pm

@@ -3019,7 +3019,8 @@ sub parse_version {
       $result = $normal if defined $normal;
     }
     if ( defined $result ) {
-      $result = "undef" unless $result =~ m!^[\d_\.\-]+$! or eval { version->parse( $result ) };
+      $result = "undef" unless $result =~ m!^v?[\d_\.\-]+$!
+                        or eval { version->parse( $result ) };
     }
     $result = "undef" unless defined $result;
     return $result;

t/parse_version.t

@@ -44,7 +44,6 @@ my %versions = (q[$VERSION = '1.00']            => '1.00',
                 '$VERSION = substr(q$Revision: 2.8 $, 10) + 2 . "";'                   => '4.8',
                 q[our $VERSION = do { my @r = ( q$Revision: 2.7 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };] => '2.07', # Fucking seriously?
                 'elsif ( $Something::VERSION >= 1.99 )' => undef,
-                q[our $VERSION = "1.00 / the fucking fuck";] => 'undef',
                );
 
 if( $Has_Version ) {
@@ -65,6 +64,7 @@ if( "$]" >= 5.011001 ) {
     $versions{'package Foo 1.23_01;'      } = '1.23_01';
     $versions{'package Foo v1.23_01;'     } = 'v1.23_01';
     $versions{q["package Foo 1.23"]}        = undef;
+    $versions{q[our $VERSION = "1.00 / the fucking fuck";]} = 'undef';
     $versions{<<'END'}                      = '1.23';
 package Foo 1.23;
 our $VERSION = 2.34;