From b0d0c53930669dca23928a6d1a7ae6e9f2bd61d8 Mon Sep 17 00:00:00 2001 From: "david@dhaller.de" Date: Wed, 23 Oct 2002 18:42:51 +0000 Subject: [perl #18065] LFS related bug in perl-5.8.0 testsuite From: "david@dhaller.de (via RT)" Message-Id: p4raw-id: //depot/perl@18122 --- ext/Fcntl/t/syslfs.t | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'ext/Fcntl') diff --git a/ext/Fcntl/t/syslfs.t b/ext/Fcntl/t/syslfs.t index 8d9769fded..2dcaf43a3d 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 -- cgit v1.2.1