diff options
| author | Steve Hay <SteveHay@planit.com> | 2006-08-11 12:49:00 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2006-08-11 12:49:00 +0000 |
| commit | c84ba4c0bdbeb2389b85669b2ee1a26761b61ff4 (patch) | |
| tree | 5d4d57f7b0c8ac483186d1cfe973f1d907b44e64 /t/op/stat.t | |
| parent | 44cc5a7ce5ecf7139ce1fe67cd93e7f75d353329 (diff) | |
| download | perl-c84ba4c0bdbeb2389b85669b2ee1a26761b61ff4.tar.gz | |
Close file before unlinking (on Win32 at least!)
p4raw-id: //depot/perl@28694
Diffstat (limited to 't/op/stat.t')
| -rwxr-xr-x | t/op/stat.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/t/op/stat.t b/t/op/stat.t index bcf5bd1174..c3df450a0e 100755 --- a/t/op/stat.t +++ b/t/op/stat.t @@ -493,6 +493,7 @@ SKIP: { my @thwap = stat *F{IO}; ok(@thwap, "stat(*F{IO}) works"); ok( -f *F{IO} , "single file tests work with *F{IO}"); + close F; unlink $tmpfile; #PVIO's hold dirhandle information, so let's test them too. |