diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1999-09-10 20:44:22 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1999-09-10 20:44:22 +0000 |
| commit | 53e9df65959190f4cd34a02fe359bc5e6d2553f6 (patch) | |
| tree | 0808e1620b6ecdcd9f64c6db1b8f70966efe542e /t/op/defins.t | |
| parent | a0ed51b321531af4b47cce24205ab9656f043f0f (diff) | |
| parent | 8a7fc0dc3015c8254ce4e866be71508e3379d45d (diff) | |
| download | perl-53e9df65959190f4cd34a02fe359bc5e6d2553f6.tar.gz | |
Get resolve -at mainline
p4raw-id: //depot/utfperl@4126
Diffstat (limited to 't/op/defins.t')
| -rwxr-xr-x | t/op/defins.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/op/defins.t b/t/op/defins.t index 0ed61ce2fb..9e714a718b 100755 --- a/t/op/defins.t +++ b/t/op/defins.t @@ -6,7 +6,7 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; + unshift @INC, '../lib'; $SIG{__WARN__} = sub { $warns++; warn $_[0] }; print "1..14\n"; } @@ -61,6 +61,7 @@ while ($where{$seen} = <FILE>) } print "not " unless $seen; print "ok 5\n"; +close FILE; opendir(DIR,'.'); $seen = 0; |