X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fio%2Fopen.t;h=01902812e2dbee1fff7a98254f2f0da07e4f89f5;hb=22d4bb9ccb8701e68f9243547d7e3a3c55f70908;hp=30db5988b6af01b509bb2a8ed8a4f8d751e454a7;hpb=4b19af017623bfa3bb72bb164598a517f586e0d3;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/io/open.t b/t/io/open.t
index 30db598..0190281 100755
--- a/t/io/open.t
+++ b/t/io/open.t
@@ -2,7 +2,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    unshift @INC, '../lib';
+    @INC = '../lib';
 }    
 
 # $RCSfile$    
@@ -268,13 +268,13 @@ ok;
 {
     local *F;
     for (1..2) {
-        open(F, "echo #foo|") or print "not ";
+        open(F, "echo \\#foo|") or print "not ";
 	print <F>;
 	close F;
     }
     ok;
     for (1..2) {
-	open(F, "-|", "echo #foo") or print "not ";
+	open(F, "-|", "echo \\#foo") or print "not ";
 	print <F>;
 	close F;
     }