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 (file)
--- 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 (file)
--- 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 (file)
--- 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";