perl 5.002_01: t/cmd/mod.t

Try to open TEST with explicit directory first, so test doesn't
fail if logical name TEST points to another file.

diff --git a/t/cmd/mod.t b/t/cmd/mod.t
index e1327ed..9d9170f 100755 (executable)
--- a/t/cmd/mod.t
+++ b/t/cmd/mod.t
@@ -27,7 +27,7 @@ $x = 15;
 $x = 10 while $x < 10;
 if ($x == 15) {print "ok 6\n";} else {print "not ok 6\n";}
 
-open(foo,'TEST') || open(foo,'t/TEST');
+open(foo,'./TEST') || open(foo,'TEST') || open(foo,'t/TEST');
 $x = 0;
 $x++ while <foo>;
 print $x > 50 && $x < 1000 ? "ok 7\n" : "not ok 7\n";