From: Craig A. Berry <craigberry@mac.com>
Date: Tue, 12 Aug 2003 21:12:00 +0000 (-0500)
Subject: turn the alarm off in the tests (was Re: maint @ 20617 (on VMS))
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=79a3c49fe514805969b1cbb58cb439d060a1256a;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/lib/Tie/File/t/24_cache_loop.t b/lib/Tie/File/t/24_cache_loop.t
index 20ccffa..0bc66be 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 d9c7ecb..d75806d 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 67e8526..1130615 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";