diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-03-01 03:32:41 +0000 |
|---|---|---|
| committer | Charles Bailey <bailey@genetics.upenn.edu> | 1996-03-01 03:32:41 +0000 |
| commit | 2b17841a359577f50deee3551fafa772a520cdcc (patch) | |
| tree | 9b1298a992ec91f141f6d93d045cc1f667c6fe07 | |
| parent | 80b92232e4d4ad8078e12cd15b5399299c7f9f9b (diff) | |
| download | perl-2b17841a359577f50deee3551fafa772a520cdcc.tar.gz | |
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.
| -rwxr-xr-x | t/cmd/mod.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/cmd/mod.t b/t/cmd/mod.t index e1327edf6c..9d9170ff3f 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"; |