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 (file)
--- 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};