diff options
| author | Craig A. Berry <craigberry@mac.com> | 2010-03-01 18:56:45 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2010-03-01 18:56:45 -0600 |
| commit | 6061da081a4fed7b01d246a6004b4366c205b50e (patch) | |
| tree | a34a841bdc7b33b00b429667b00a6dd3073df625 /dist | |
| parent | b09c05e65698d8bad3544ae2c60fdbf601f0fa72 (diff) | |
| download | perl-6061da081a4fed7b01d246a6004b4366c205b50e.tar.gz | |
Cannot portably split on $Config{path_sep} -- use quotemeta($Config{path_sep}).
Broken in fc5e5837c991d3d3224259ff5c1d728d4e0636e2.
On VMS we were getting:
$ perl -"MConfig" -e "print join('+',split $Config{path_sep}, 'foo|bar|baz');"
f+o+o+|+b+a+r+|+b+a+z
which is a *lot* more pieces than we want. What was intended was:
$ perl -"MConfig" -e "print join('+',split quotemeta($Config{path_sep}), 'foo|bar|baz');"
foo+bar+baz
No version bump as this is test infrastructure and 1.55 has not been
released outside of development releases of blead.
Diffstat (limited to 'dist')
| -rw-r--r-- | dist/ExtUtils-Install/t/lib/MakeMaker/Test/Utils.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dist/ExtUtils-Install/t/lib/MakeMaker/Test/Utils.pm b/dist/ExtUtils-Install/t/lib/MakeMaker/Test/Utils.pm index c3c214ced6..453a8ed3bf 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'; |