diff options
| -rw-r--r-- | lib/Tie/File/t/24_cache_loop.t | 1 | ||||
| -rw-r--r-- | lib/Tie/File/t/29_downcopy.t | 2 | ||||
| -rw-r--r-- | lib/Tie/File/t/29a_upcopy.t | 2 |
3 files changed, 3 insertions, 2 deletions
diff --git a/lib/Tie/File/t/24_cache_loop.t b/lib/Tie/File/t/24_cache_loop.t index 20ccffae02..0bc66bee2b 100644 --- a/lib/Tie/File/t/24_cache_loop.t +++ b/lib/Tie/File/t/24_cache_loop.t @@ -43,6 +43,7 @@ $N++; alarm 5 unless $^P; @a = "record0" .. "record9"; print "ok 3\n"; +alarm 0; END { undef $o; diff --git a/lib/Tie/File/t/29_downcopy.t b/lib/Tie/File/t/29_downcopy.t index d9c7ecb28e..d75806d5b2 100644 --- a/lib/Tie/File/t/29_downcopy.t +++ b/lib/Tie/File/t/29_downcopy.t @@ -273,7 +273,7 @@ sub try { local $SIG{ALRM} = sub { die "Alarm clock" }; my $a_retval = eval { alarm(5) unless $^P; $o->_downcopy($newdata, $pos, $len) }; my $err = $@; - undef $o; untie @lines; + undef $o; untie @lines; alarm(0); if ($err) { if ($err =~ /^Alarm clock/) { print "# Timeout\n"; diff --git a/lib/Tie/File/t/29a_upcopy.t b/lib/Tie/File/t/29a_upcopy.t index 67e8526ef5..1130615f37 100644 --- a/lib/Tie/File/t/29a_upcopy.t +++ b/lib/Tie/File/t/29a_upcopy.t @@ -129,7 +129,7 @@ sub try { local $SIG{ALRM} = sub { die "Alarm clock" }; my $a_retval = eval { alarm(5) unless $^P; $o->_upcopy($src, $dst, $len) }; my $err = $@; - undef $o; untie @lines; + undef $o; untie @lines; alarm(0); if ($err) { if ($err =~ /^Alarm clock/) { print "# Timeout\n"; |