From ec00bdd859a5ba69406f936bdf567b5b883c98d8 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Thu, 17 Aug 2000 00:28:19 +0000 Subject: trailing new %ENV entries weren't being pushed into the real environment of subprocesses on Windows p4raw-id: //depot/perl@6662 --- t/op/magic.t | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 't/op/magic.t') 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") ); } { -- cgit v1.2.1