MM_Any.pm: in _mymeta_from_meta deal with underbars in version more gracefully

demerphq · demerphq · commit 64e962a067db · 2023-02-28T16:41:37.000+01:00
Use eval to deal with underbars in the version number.
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;
         }

Original file line number	Diff line number	Diff line change
`@@ -1671,7 +1671,7 @@ sub _mymeta_from_meta {`
`1671`	`1671`	`# rolled their own tarball rather than using "make dist".`
`1672`	`1672`	`if ($meta->{generated_by} &&`
`1673`	`1673`	`$meta->{generated_by} =~ /ExtUtils::MakeMaker version ([\d\._]+)/) {`
`1674`		`- my $eummv = do { no warnings; $1+0; };`
	`1674`	`+ my $eummv = do { no warnings; eval "$1" + 0; }; # deal with underbars gracefully`
`1675`	`1675`	`if ($eummv < 6.2501) {`
`1676`	`1676`	`return;`
`1677`	`1677`	`}`