diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/op/stat.t | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/t/op/stat.t b/t/op/stat.t index 2f34f6e0ab..027902df64 100644 --- a/t/op/stat.t +++ b/t/op/stat.t @@ -472,10 +472,12 @@ like $@, qr/^The stat preceding lstat\(\) wasn't an lstat at /, 'stat $ioref resets stat type'; { - my @statbuf = stat STDOUT; + open(FOO, ">$tmpfile") || DIE("Can't open temp test file: $!"); + my @statbuf = stat FOO; stat "test.pl"; - my @lstatbuf = lstat *STDOUT{IO}; + my @lstatbuf = lstat *FOO{IO}; is "@lstatbuf", "@statbuf", 'lstat $ioref reverts to regular fstat'; + unlink $tmpfile or print "# unlink failed: $!\n"; } SKIP: { |