diff options
author | Craig A. Berry <craigberry@mac.com> | 2008-01-12 01:01:45 +0000 |
---|---|---|
committer | Craig A. Berry <craigberry@mac.com> | 2008-01-12 01:01:45 +0000 |
commit | e7c47b03cc4b0dca169b6421b3933cf89d14ab65 (patch) | |
tree | 6d23efdedea61e9ab1cb1a5ae47d3bca52dcef62 /lib | |
parent | c9242b3f0d9b2cbf453ac874f8fd5f49f4790fab (diff) | |
download | perl-e7c47b03cc4b0dca169b6421b3933cf89d14ab65.tar.gz |
Don't quote a whitespace-containing ABSPERL when the whitespace
means it is a command with parameter(s).
p4raw-id: //depot/perl@32964
Diffstat (limited to 'lib')
-rw-r--r-- | lib/ExtUtils/MM_Unix.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm index 3f922d48c0..854cb0b0ad 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}; |