X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FExtUtils%2FMM_Unix.pm;h=24e36a1eb25cd54c567b8edc0865825922889e79;hb=5f0d9a5e98d41781cedaccfd3e6a8e18e84d1226;hp=82b8f69dc75f6b2545b4e1c5af7085379944267f;hpb=cf346138d65ead98b6b0db39f170b648fd861ca2;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm
index 82b8f69..24e36a1 100644
--- a/lib/ExtUtils/MM_Unix.pm
+++ b/lib/ExtUtils/MM_Unix.pm
@@ -11,7 +11,7 @@ use strict;
 our ($Is_Mac,$Is_OS2,$Is_VMS,$Is_Win32,$Is_Dos,
 	    $Verbose,%pm,%static,$Xsubpp_Version);
 
-our $VERSION = '1.12605';
+our $VERSION = '1.12606';
 
 require ExtUtils::MakeMaker;
 ExtUtils::MakeMaker->import(qw($Verbose &neatvalue));
@@ -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} ||=
@@ -2796,7 +2797,8 @@ sub nicetext {
 
 parse a file and return what you think is $VERSION in this file set to.
 It will return the string "undef" if it can't figure out what $VERSION
-is.
+is. $VERSION should be for all to see, so our $VERSION or plain $VERSION
+are okay, but my $VERSION is not.
 
 =cut