diff options
| author | Max Maischein <corion@corion.net> | 2008-01-07 21:48:04 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-01-08 22:45:03 +0000 |
| commit | 1f0bbb56807074c4a1da6fa28c421d1070fd4fff (patch) | |
| tree | d69d09bda93d9b991a26444b73f759bfc65001e1 /lib | |
| parent | b0169937a1833d262bdcef83fc6595ccc076cb56 (diff) | |
| download | perl-1f0bbb56807074c4a1da6fa28c421d1070fd4fff.tar.gz | |
[patch] [Win32] Make Perl build on Win32 when the path contains whitespace
Message-ID: <478281F4.9000202@cpan.org>
p4raw-id: //depot/perl@32905
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/MM_Unix.pm | 5 | ||||
| -rwxr-xr-x | lib/File/CheckTree.t | 6 |
2 files changed, 7 insertions, 4 deletions
diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm index 45507271f3..3f922d48c0 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_01'; +$VERSION = '6.42_02'; $VERSION = eval $VERSION; require ExtUtils::MM_Any; @@ -1980,6 +1980,9 @@ sub init_PERL { $self->{ABSPERL} = 'MCR '.$self->{ABSPERL} if $has_mcr; } + $self->{ABSPERL} = qq{"$self->{ABSPERL}"} + if $self->{ABSPERL} =~ /\s/; + # 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}; diff --git a/lib/File/CheckTree.t b/lib/File/CheckTree.t index 1874e5a75b..b8a56528a3 100755 --- a/lib/File/CheckTree.t +++ b/lib/File/CheckTree.t @@ -135,13 +135,13 @@ chdir(File::Spec->updir) or die "cannot change to parent of t/ directory: $!"; eval { $num_warnings = validate qq{ lib -d || die - $path_to_libFile cd + '$path_to_libFile' cd Spec -e Spec -f - $path_to_dist cd + '$path_to_dist' cd README -ef INSTALL -d || warn - $path_to_libFile -d || die + '$path_to_libFile' -d || die }; }; |