From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Fri, 1 Mar 1996 03:32:41 +0000 (+0000)
Subject: perl 5.002_01: t/cmd/mod.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2b17841a359577f50deee3551fafa772a520cdcc;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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";