AmigaOS patches to 5.003_28
[p5sagit/p5-mst-13.2.git] / t / lib / filehand.t
index 14a1770..20b2ee0 100755 (executable)
@@ -22,7 +22,9 @@ print "1..11\n";
 
 print $mystdout "ok ",fileno($mystdout),"\n";
 
-$fh = new FileHandle "TEST", O_RDONLY and print "ok 2\n";
+$fh = (new FileHandle "./TEST", O_RDONLY
+       or new FileHandle "TEST", O_RDONLY)
+  and print "ok 2\n";
 
 
 $buffer = <$fh>;