From: Mattia Barbon <mbarbon@dsi.unive.it>
Date: Sun, 13 Jan 2002 21:49:24 +0000 (+0100)
Subject: enable Win32 to build again
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5f0d9a5e98d41781cedaccfd3e6a8e18e84d1226;p=p5sagit%2Fp5-mst-13.2.git

enable Win32 to build again
Message-ID: <3C4200E4.15926.23F6131@localhost>

miniperl.exe.exe does not exe that well.

p4raw-id: //depot/perl@14248
---

diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm
index 4f34883..24e36a1 100644
--- a/lib/ExtUtils/MM_Unix.pm
+++ b/lib/ExtUtils/MM_Unix.pm
@@ -2040,7 +2040,8 @@ usually solves this kind of problem.
 
     # Build up a set of file names (not command names).
     foreach $element (@perls) {
-        $element .= "$Config{exe_ext}";
+        $element .= $Config{exe_ext}
+          unless $element =~ m/$Config{exe_ext}$/i;
     }
 
     $self->{PERL} ||=