diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2002-12-02 02:18:19 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-12-02 02:18:19 +0000 |
| commit | 6c8d78fb324d7709ee76d3711608bab5f83d721f (patch) | |
| tree | c26f4a574ccbfe4e2113d6d0297347d1fb640c3b /ext/Fcntl | |
| parent | a3985cdcc04b13974afc5f4635645003847806e4 (diff) | |
| download | perl-6c8d78fb324d7709ee76d3711608bab5f83d721f.tar.gz | |
integrate 5.8-maint: changes #18174 18187 18189-92 18202 18209 18214-5
p4raw-link: @18189 on //depot/maint-5.8/perl: 27314835b1b1ea8730d4a0eb871861ac238c63f9
p4raw-link: @18187 on //depot/maint-5.8/perl: 94e81ce4c47784f86829e70129b1d0a3e95ca51c
p4raw-link: @18174 on //depot/maint-5.8/perl: f8d24d869503bcd9df0e86aa5898c89996220bf8
p4raw-id: //depot/perl@18221
p4raw-branched: from //depot/maint-5.8/perl@18220 'branch in'
ext/POSIX/t/is.t
p4raw-integrated: from //depot/maint-5.8/perl@18220 'copy in'
README.os2 ext/GDBM_File/GDBM_File.pm ext/GDBM_File/Makefile.PL
lib/Unicode/UCD.pm t/op/subst.t (@17645..) INSTALL t/op/grep.t
(@18080..) ext/Fcntl/t/syslfs.t t/op/lfs.t (@18133..) 'merge
in' t/op/eval.t (@17645..) pod/perldiag.pod (@18146..)
lib/Unicode/UCD.t (@18156..) MANIFEST (@18173..)
Diffstat (limited to 'ext/Fcntl')
| -rw-r--r-- | ext/Fcntl/t/syslfs.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/Fcntl/t/syslfs.t b/ext/Fcntl/t/syslfs.t index 2dcaf43a3d..0843b6019e 100644 --- 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 |