From: Craig A. Berry <craigberry@mac.com>
Date: Sat, 12 Jan 2008 01:01:45 +0000 (+0000)
Subject: Don't quote a whitespace-containing ABSPERL when the whitespace
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e7c47b03cc4b0dca169b6421b3933cf89d14ab65;p=p5sagit%2Fp5-mst-13.2.git

Don't quote a whitespace-containing ABSPERL when the whitespace
means it is a command with parameter(s).

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

diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm
index 3f922d4..854cb0b 100644
--- a/lib/ExtUtils/MM_Unix.pm
+++ b/lib/ExtUtils/MM_Unix.pm
@@ -18,7 +18,7 @@ use vars qw($VERSION @ISA
 
 use ExtUtils::MakeMaker qw($Verbose neatvalue);
 
-$VERSION = '6.42_02';
+$VERSION = '6.42_03';
 $VERSION = eval $VERSION;
 
 require ExtUtils::MM_Any;
@@ -1981,7 +1981,7 @@ sub init_PERL {
     }
 
     $self->{ABSPERL} = qq{"$self->{ABSPERL}"}
-        if $self->{ABSPERL} =~ /\s/;
+        if ($self->{ABSPERL} =~ /\s/) && ! $has_mcr;
 
     # Are we building the core?
     $self->{PERL_CORE} = $ENV{PERL_CORE} unless exists $self->{PERL_CORE};