# Known haves that have problems running this test
# (for example because they do not support sparse files, like UNICOS)
if ($^O eq 'unicos') {
- print "1..0 # Skip: no sparse files in $^0, unable to test large files\n";
+ print "1..0 # Skip: no sparse files in $^O, unable to test large files\n";
bye();
}
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
+ # be paranoid about leaving 5 gig files lying around
+ open(BIG, ">big"); # truncate
+ close(BIG);
+ 1 while unlink "big"; # standard portable idiom
}
# eof