RT#132875 DISTVNAME is a time bomb

This should ensure that given VERSION or VERSION_FROM
is sane (for some value of sane).

Passes t/parse_version.t anyways.

Author: bingos

lib/ExtUtils/MM_Unix.pm

@@ -3018,6 +3018,9 @@ sub parse_version {
       my $normal = eval { version->new( $result ) };
       $result = $normal if defined $normal;
     }
+    if ( defined $result ) {
+      $result = "undef" unless $result =~ m!^[\d_\.\-]+$! or eval { version->parse( $result ) };
+    }
     $result = "undef" unless defined $result;
     return $result;
 }

t/parse_version.t

@@ -44,7 +44,7 @@ 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 ) {