[perl #24914] freeing a CV reference that was currently being

[p5sagit/p5-mst-13.2.git] / t / op / lfs.t

diff --git a/t/op/lfs.t b/t/op/lfs.t
index 8be24f4..f463b1b 100644 (file)
--- a/t/op/lfs.t
+++ b/t/op/lfs.t
@@ -268,7 +268,11 @@ explain() if $fail;
 bye(); # does the necessary cleanup
 
 END {
-   unlink "big"; # be paranoid about leaving 5 gig files lying around
+    # unlink may fail if applied directly to a large file
+    # be paranoid about leaving 5 gig files lying around
+    open(BIG, ">big"); # truncate
+    close(BIG);
+    1 while unlink "big"; # standard portable idiom
 }
 
 # eof