SYN SYN

[p5sagit/p5-mst-13.2.git] / t / io / open.t

diff --git a/t/io/open.t b/t/io/open.t
index 531fc85..0190281 100755 (executable)
--- a/t/io/open.t
+++ b/t/io/open.t
@@ -1,8 +1,13 @@
 #!./perl
 
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+}    
+
 # $RCSfile$    
 $|  = 1;
-$^W = 1;
+use warnings;
 $Is_VMS = $^O eq 'VMS';
 
 print "1..66\n";
@@ -263,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;
     }