Follow-up on change #18122 (perl #18065) as noted by Philip Newton.

p4raw-link: @18122 on //depot/perl: b0d0c53930669dca23928a6d1a7ae6e9f2bd61d8

p4raw-id: //depot/maint-5.8/perl@18187

diff --git a/ext/Fcntl/t/syslfs.t b/ext/Fcntl/t/syslfs.t
index 2dcaf43..0843b60 100644 (file)
--- a/ext/Fcntl/t/syslfs.t
+++ b/ext/Fcntl/t/syslfs.t
@@ -262,10 +262,10 @@ bye(); # does the necessary cleanup
 
 END {
     # unlink may fail if applied directly to a large file
-    open(BIG, ">big");
-    print BIG "x";
+    # be paranoid about leaving 5 gig files lying around
+    open(BIG, ">big"); # truncate
     close(BIG);
-    unlink "big"; # be paranoid about leaving 5 gig files lying around
+    1 while unlink "big"; # standard portable idiom
 }
 
 # eof

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