X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Fmagic.t;h=e2acb1f641013b546c7950cb9bac6ada0a54162c;hb=22d4bb9ccb8701e68f9243547d7e3a3c55f70908;hp=773927605665aa02e6a04380f4f2f60b0c94e0af;hpb=4b19af017623bfa3bb72bb164598a517f586e0d3;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/magic.t b/t/op/magic.t
index 7739276..e2acb1f 100755
--- a/t/op/magic.t
+++ b/t/op/magic.t
@@ -3,7 +3,7 @@
 BEGIN {
     $| = 1;
     chdir 't' if -d 't';
-    unshift @INC, '../lib';
+    @INC = '../lib';
     $SIG{__WARN__} = sub { die "Dying on warning: ", @_ };
 }
 
@@ -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") );
 }
 
 {