X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/fc5e5837c991d3d3224259ff5c1d728d4e0636e2..6061da081a4fed7b01d246a6004b4366c205b50e:/dist/ExtUtils-Install/t/lib/MakeMaker/Test/Utils.pm

diff --git a/dist/ExtUtils-Install/t/lib/MakeMaker/Test/Utils.pm b/dist/ExtUtils-Install/t/lib/MakeMaker/Test/Utils.pm
index 907ca9b..453a8ed 100644
--- a/dist/ExtUtils-Install/t/lib/MakeMaker/Test/Utils.pm
+++ b/dist/ExtUtils-Install/t/lib/MakeMaker/Test/Utils.pm
@@ -149,7 +149,7 @@ sub perl_lib {
 	# $ENV{PERL5LIB} will be set with this, but (by default) it's a relative
 	# path.
 	$ENV{PERL5LIB} = join $Config{path_sep}, map {
-	    File::Spec->rel2abs($_) } split $Config{path_sep}, $ENV{PERL5LIB};
+	    File::Spec->rel2abs($_) } split quotemeta($Config{path_sep}), $ENV{PERL5LIB};
 	@INC = map { File::Spec->rel2abs($_) } @INC;
     } else {
 	my $lib = 'blib/lib';
@@ -349,7 +349,7 @@ sub setup_mm_test_root {
         open( MMTMP, '>mmtesttmp.com' ) || 
           die "Error creating command file; $!";
         print MMTMP <<'COMMAND';
-$ MM_TEST_ROOT = F$PARSE("SYS$DISK:[-]",,,,"NO_CONCEAL")-".][000000"-"]["-"].;"+".]"
+$ MM_TEST_ROOT = F$PARSE("SYS$DISK:[--]",,,,"NO_CONCEAL")-".][000000"-"]["-"].;"+".]"
 $ DEFINE/JOB/NOLOG/TRANSLATION=CONCEALED MM_TEST_ROOT 'MM_TEST_ROOT'
 COMMAND
         close MMTMP;