summaryrefslogtreecommitdiff
path: root/ext/Fcntl
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2010-12-14 15:43:02 +0000
committerNicholas Clark <nick@ccl4.org>2010-12-14 16:59:53 +0000
commit09eb7cfbca20b4071e1b90c66713173d118d1d47 (patch)
treed4e23337f269c63cde56b781e5c0c70a5d3e6116 /ext/Fcntl
parent80ed94815e0438a29d0ed646ff1c528d910e8a2d (diff)
downloadperl-09eb7cfbca20b4071e1b90c66713173d118d1d47.tar.gz
In Fcntl's syslfs.t and t/op/lfs.t, eliminate zap().
Now that we're using tempfiles, it no longer contains code to unlink the test files, only a close. Inline the C<close BIG> into bye(), and remove the other call to zap(), which was immediately after an explicit close of BIG.
Diffstat (limited to 'ext/Fcntl')
-rw-r--r--ext/Fcntl/t/syslfs.t8
1 files changed, 1 insertions, 7 deletions
diff --git a/ext/Fcntl/t/syslfs.t b/ext/Fcntl/t/syslfs.t
index c6252cc934..e5996b3084 100644
--- a/ext/Fcntl/t/syslfs.t
+++ b/ext/Fcntl/t/syslfs.t
@@ -22,12 +22,8 @@ our $fail;
(undef, my $big1) = tempfile(UNLINK => 1);
(undef, my $big2) = tempfile(UNLINK => 1);
-sub zap {
- close(BIG);
-}
-
sub bye {
- zap();
+ close(BIG);
exit(0);
}
@@ -108,8 +104,6 @@ my @s2 = stat($big2);
print "# s2 = @s2\n";
-zap();
-
unless ($s1[7] == 1_000_003 && $s2[7] == 2_000_003 &&
$s1[11] == $s2[11] && $s1[12] == $s2[12] &&
$s1[12] > 0) {