Change 32964: Don't quote a whitespace-containing ABSPERL when the whitespace

[Craig A . Berry]

Change 32964 by [EMAIL PROTECTED] on 2008/01/12 01:01:45

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

Affected files ...

... //depot/perl/lib/ExtUtils/MM_Unix.pm#235 edit

Differences ...

==== //depot/perl/lib/ExtUtils/MM_Unix.pm#235 (text) ====
Index: perl/lib/ExtUtils/MM_Unix.pm
--- perl/lib/ExtUtils/MM_Unix.pm#234~32905~     2008-01-08 14:45:03.000000000 
-0800
+++ perl/lib/ExtUtils/MM_Unix.pm        2008-01-11 17:01:45.000000000 -0800
@@ -18,7 +18,7 @@
 
 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 @@
     }
 
     $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};
End of Patch.