diff options
| author | Craig A. Berry <craigberry@mac.com> | 2003-08-12 16:12:00 -0500 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2003-08-13 08:54:45 +0000 |
| commit | 79a3c49fe514805969b1cbb58cb439d060a1256a (patch) | |
| tree | f47475847eedb73db912857218d44f6ec1e3be99 /lib/Tie/File | |
| parent | 932f293e96b6dc4df3c34cd2faff050d6cfaca84 (diff) | |
| download | perl-79a3c49fe514805969b1cbb58cb439d060a1256a.tar.gz | |
turn the alarm off in the tests (was Re: maint @ 20617 (on VMS))
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3F399E70.4050607@mac.com>
p4raw-id: //depot/perl@20670
Diffstat (limited to 'lib/Tie/File')
| -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"; |