diff options
author | David Mitchell <davem@iabyn.com> | 2022-11-18 10:07:24 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2022-11-18 10:07:24 +0000 |
commit | 6866894f3e7310938e5b72ec5833faaae281b20f (patch) | |
tree | b8a00dcf97fac676a21f8cc0ddb7d7a576e6e7ef | |
parent | f2df8f283fc616ea58c6ae26cf85356b7bb066c9 (diff) | |
download | perl-6866894f3e7310938e5b72ec5833faaae281b20f.tar.gz |
dist/Tie-File/t/29a_upcopy.t: double timeout to 10
Some of these tests (which involve moving blocks of data around in a
file) are occasionally randomly timing out on some slow smokers.
Double the timeout from 5s to 10s and see if the problem goes away.
-rw-r--r-- | dist/Tie-File/t/29a_upcopy.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dist/Tie-File/t/29a_upcopy.t b/dist/Tie-File/t/29a_upcopy.t index 53e45639ab..4e84a52055 100644 --- a/dist/Tie-File/t/29a_upcopy.t +++ b/dist/Tie-File/t/29a_upcopy.t @@ -131,7 +131,7 @@ sub try { my $o = tie my @lines, 'Tie::File', $file or die $!; local $SIG{ALRM} = sub { die "Alarm clock" }; - my $a_retval = eval { alarm(5) unless $^P; $o->_upcopy($src, $dst, $len) }; + my $a_retval = eval { alarm(10) unless $^P; $o->_upcopy($src, $dst, $len) }; my $err = $@; undef $o; untie @lines; alarm(0); if ($err) { |