This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Cannot portably split on $Config{path_sep} -- use quotemeta($Config{path_sep}).
[perl5.git] / dist / ExtUtils-Install / t / lib / MakeMaker / Test / Utils.pm
index c3c214c..453a8ed 100644 (file)
@@ -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';