This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
turn the alarm off in the tests (was Re: maint @ 20617 (on VMS))
authorCraig A. Berry <craigberry@mac.com>
Tue, 12 Aug 2003 21:12:00 +0000 (16:12 -0500)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Wed, 13 Aug 2003 08:54:45 +0000 (08:54 +0000)
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3F399E70.4050607@mac.com>

p4raw-id: //depot/perl@20670

lib/Tie/File/t/24_cache_loop.t
lib/Tie/File/t/29_downcopy.t
lib/Tie/File/t/29a_upcopy.t

index 20ccffa..0bc66be 100644 (file)
@@ -43,6 +43,7 @@ $N++;
 alarm 5 unless $^P;
 @a = "record0" .. "record9";
 print "ok 3\n";
+alarm 0;
 
 END {
   undef $o;
index d9c7ecb..d75806d 100644 (file)
@@ -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";
index 67e8526..1130615 100644 (file)
@@ -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";