Change 33252: Re-apply patches 32879, 32905, and 32964 to MakeMaker

[Rafael Garcia-Suarez]

Change 33252 by [EMAIL PROTECTED] on 2008/02/08 13:25:18

        Re-apply patches 32879, 32905, and 32964 to MakeMaker

Affected files ...

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

Differences ...

==== //depot/perl/lib/ExtUtils/MM_Unix.pm#237 (text) ====
Index: perl/lib/ExtUtils/MM_Unix.pm
--- perl/lib/ExtUtils/MM_Unix.pm#236~33250~     2008-02-08 05:07:25.000000000 
-0800
+++ perl/lib/ExtUtils/MM_Unix.pm        2008-02-08 05:25:18.000000000 -0800
@@ -15,7 +15,7 @@
 
 # If we make $VERSION an our variable parse_version() breaks
 use vars qw($VERSION);
-$VERSION = '6.43_01';
+$VERSION = '6.43_02';
 
 require ExtUtils::MM_Any;
 our @ISA = qw(ExtUtils::MM_Any);
@@ -1979,6 +1979,9 @@
         $self->{ABSPERL} = 'MCR '.$self->{ABSPERL} if $has_mcr;
     }
 
+    $self->{ABSPERL} = qq{"$self->{ABSPERL}"}
+        if ($self->{ABSPERL} =~ /\s/) && ! $has_mcr;
+
     # Are we building the core?
     $self->{PERL_CORE} = $ENV{PERL_CORE} unless exists $self->{PERL_CORE};
     $self->{PERL_CORE} = 0               unless defined $self->{PERL_CORE};
@@ -2448,7 +2451,7 @@
        push @$extra, $_;
     }
 
-    grep(s/^(.*)/"-I$1"/, @{$perlinc || []});
+    map(s/^(.*)/"-I$1"/, @{$perlinc || []});
 
     $target ||= "perl";
     $tmp    ||= ".";
End of Patch.