diff options
| author | david@dhaller.de <david@dhaller.de> | 2002-10-23 18:42:51 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-11-07 13:40:25 +0000 |
| commit | b0d0c53930669dca23928a6d1a7ae6e9f2bd61d8 (patch) | |
| tree | 3f7ab6f13549b16d2d872ec3e98519934e76d88e /ext/Fcntl | |
| parent | b5ccf5f2cdb7415d32c161b40f11284c4f37fb57 (diff) | |
| download | perl-b0d0c53930669dca23928a6d1a7ae6e9f2bd61d8.tar.gz | |
[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
Diffstat (limited to 'ext/Fcntl')
| -rw-r--r-- | ext/Fcntl/t/syslfs.t | 6 |
1 files changed, 5 insertions, 1 deletions
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 |