[perl #18065] LFS related bug in perl-5.8.0 testsuite

From: "david@dhaller.de (via RT)" <perlbug@perl.org>
Message-Id: <rt-18065-40384.14.044473925414@bugs6.perl.org>

p4raw-id: //depot/perl@18122

diff --git a/ext/Fcntl/t/syslfs.t b/ext/Fcntl/t/syslfs.t
index 8d9769f..2dcaf43 100644 (file)
--- a/ext/Fcntl/t/syslfs.t
+++ b/ext/Fcntl/t/syslfs.t
@@ -261,7 +261,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
+    open(BIG, ">big");
+    print BIG "x";
+    close(BIG);
+    unlink "big"; # be paranoid about leaving 5 gig files lying around
 }
 
 # eof

diff --git a/t/op/lfs.t b/t/op/lfs.t
index 8be24f4..e62cdbf 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
+    open(BIG, ">big");
+    print BIG "x";
+    close(BIG);
+    unlink "big"; # be paranoid about leaving 5 gig files lying around
 }
 
 # eof