Change 20670 by [EMAIL PROTECTED] on 2003/08/13 08:54:45
Subject: [PATCH Tie::File] turn the alarm off in the tests (was Re: maint @
20617 (on VMS))
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Date: Tue, 12 Aug 2003 21:12:00 -0500
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/Tie/File/t/24_cache_loop.t#3 edit
... //depot/perl/lib/Tie/File/t/29_downcopy.t#3 edit
... //depot/perl/lib/Tie/File/t/29a_upcopy.t#2 edit
Differences ...
==== //depot/perl/lib/Tie/File/t/24_cache_loop.t#3 (text) ====
Index: perl/lib/Tie/File/t/24_cache_loop.t
--- perl/lib/Tie/File/t/24_cache_loop.t#2~15752~ Fri Apr 5 10:37:32 2002
+++ perl/lib/Tie/File/t/24_cache_loop.t Wed Aug 13 01:54:45 2003
@@ -43,6 +43,7 @@
alarm 5 unless $^P;
@a = "record0" .. "record9";
print "ok 3\n";
+alarm 0;
END {
undef $o;
==== //depot/perl/lib/Tie/File/t/29_downcopy.t#3 (text) ====
Index: perl/lib/Tie/File/t/29_downcopy.t
--- perl/lib/Tie/File/t/29_downcopy.t#2~19813~ Wed Jun 18 10:31:50 2003
+++ perl/lib/Tie/File/t/29_downcopy.t Wed Aug 13 01:54:45 2003
@@ -273,7 +273,7 @@
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";
==== //depot/perl/lib/Tie/File/t/29a_upcopy.t#2 (text) ====
Index: perl/lib/Tie/File/t/29a_upcopy.t
--- perl/lib/Tie/File/t/29a_upcopy.t#1~19450~ Thu May 8 10:46:26 2003
+++ perl/lib/Tie/File/t/29a_upcopy.t Wed Aug 13 01:54:45 2003
@@ -129,7 +129,7 @@
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";
End of Patch.
