MM_Any.pm: in _mymeta_from_meta deal with underbars in version more g…

…racefully Use eval to deal with underbars in the version number.
Perl-Toolchain-Gang · Mar 1, 2023 · f426c6e · f426c6e
1 parent bedcec9
commit f426c6e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/ExtUtils/MM_Any.pm b/lib/ExtUtils/MM_Any.pm
@@ -1671,7 +1671,7 @@ sub _mymeta_from_meta {
     # rolled their own tarball rather than using "make dist".
     if ($meta->{generated_by} &&
         $meta->{generated_by} =~ /ExtUtils::MakeMaker version ([\d\._]+)/) {
-        my $eummv = do { no warnings; $1+0; };
+        my $eummv = do { no warnings; eval("$1") + 0; }; # deal with underbars gracefully
         if ($eummv < 6.2501) {
             return;
         }