diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-08-17 00:28:19 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-08-17 00:28:19 +0000 |
| commit | ec00bdd859a5ba69406f936bdf567b5b883c98d8 (patch) | |
| tree | f8f7a1a18b2497058af21bdb85d718102c4f1314 /t/op/magic.t | |
| parent | 922b18888a177879df1569d1969abfcaa0090a6f (diff) | |
| download | perl-ec00bdd859a5ba69406f936bdf567b5b883c98d8.tar.gz | |
trailing new %ENV entries weren't being pushed into the real
environment of subprocesses on Windows
p4raw-id: //depot/perl@6662
Diffstat (limited to 't/op/magic.t')
| -rwxr-xr-x | t/op/magic.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/op/magic.t b/t/op/magic.t index 7739276056..27be423a2c 100755 --- a/t/op/magic.t +++ b/t/op/magic.t @@ -195,10 +195,10 @@ else { ok 29, ($Is_MSWin32 ? (`cmd /x /c set foo 2>NUL` eq "") : (`echo \$foo` eq "\n") ); - $ENV{NoNeSuCh} = "foo"; + $ENV{__NoNeSuCh} = "foo"; $0 = "bar"; - ok 30, ($Is_MSWin32 ? (`cmd /x /c set NoNeSuCh` eq "NoNeSuCh=foo\n") - : (`echo \$NoNeSuCh` eq "foo\n") ); + ok 30, ($Is_MSWin32 ? (`cmd /x /c set __NoNeSuCh` eq "__NoNeSuCh=foo\n") + : (`echo \$__NoNeSuCh` eq "foo\n") ); } { |