From: david@dhaller.de <david@dhaller.de>
Date: Wed, 23 Oct 2002 18:42:51 +0000 (+0000)
Subject: [perl #18065] LFS related bug in perl-5.8.0 testsuite
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b0d0c53930669dca23928a6d1a7ae6e9f2bd61d8;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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
--- 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