From f426c6e78f1b862a364002ec7b0c6a29c0f4a4d1 Mon Sep 17 00:00:00 2001
From: Yves Orton <demerphq@gmail.com>
Date: Tue, 28 Feb 2023 15:58:24 +0100
Subject: [PATCH] MM_Any.pm: in _mymeta_from_meta deal with underbars in
 version more gracefully

Use eval to deal with underbars in the version number.
---
 lib/ExtUtils/MM_Any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/ExtUtils/MM_Any.pm b/lib/ExtUtils/MM_Any.pm
index 173b673cb..9fc2ddc63 100644
--- 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;
         }