From: Steve Hay <SteveHay@planit.com>
Date: Fri, 11 Aug 2006 12:49:00 +0000 (+0000)
Subject: Close file before unlinking (on Win32 at least!)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c84ba4c0bdbeb2389b85669b2ee1a26761b61ff4;p=p5sagit%2Fp5-mst-13.2.git

Close file before unlinking (on Win32 at least!)

p4raw-id: //depot/perl@28694
---

diff --git a/t/op/stat.t b/t/op/stat.t
index bcf5bd1..c3df450 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.