diff options
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 }; }; |