diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2002-12-13 05:54:05 -0800 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-12-17 02:17:16 +0000 |
| commit | cd4e750ae15ad1c90d874c67a9960de086fdccf5 (patch) | |
| tree | 80c7ac3165cf08aa37cc9f25202c086ecb25fd90 /t | |
| parent | 803b07a779c719a9176a69ed7eb5685bb9f23042 (diff) | |
| download | perl-cd4e750ae15ad1c90d874c67a9960de086fdccf5.tar.gz | |
build
Message-ID: <20021213215404.GA2597@math.berkeley.edu>
p4raw-id: //depot/perl@18316
Diffstat (limited to 't')
| -rw-r--r-- | t/run/runenv.t | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/t/run/runenv.t b/t/run/runenv.t index f3a5a06cab..9acad00edf 100644 --- a/t/run/runenv.t +++ b/t/run/runenv.t @@ -39,6 +39,10 @@ sub runperl { $stdout = '' unless defined $stdout; $stderr = '' unless defined $stderr; + local %ENV = %ENV; + delete $ENV{PERLLIB}; + delete $ENV{PERL5LIB}; + delete $ENV{PERL5OPT}; my $pid = fork; return (0, "Couldn't fork: $!") unless defined $pid; # failure if ($pid) { # parent @@ -149,22 +153,22 @@ try({PERL5OPT => '-t'}, '1', ''); -try({PERLLIB => "foobar:42"}, +try({PERLLIB => "foobar$Config{path_sep}42"}, ['-e', 'print grep { $_ eq "foobar" } @INC'], 'foobar', ''); -try({PERLLIB => "foobar:42"}, +try({PERLLIB => "foobar$Config{path_sep}42"}, ['-e', 'print grep { $_ eq "42" } @INC'], '42', ''); -try({PERL5LIB => "foobar:42"}, +try({PERL5LIB => "foobar$Config{path_sep}42"}, ['-e', 'print grep { $_ eq "foobar" } @INC'], 'foobar', ''); -try({PERL5LIB => "foobar:42"}, +try({PERL5LIB => "foobar$Config{path_sep}42"}, ['-e', 'print grep { $_ eq "42" } @INC'], '42', ''); |