This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/alarm.t: reduce intermittent failures
authorDavid Mitchell <davem@iabyn.com>
Thu, 9 Jun 2011 14:51:54 +0000 (15:51 +0100)
committerDavid Mitchell <davem@iabyn.com>
Thu, 9 Jun 2011 14:56:58 +0000 (15:56 +0100)
commit565aeffea0ac99fb06cfbf215e201ce62b405a61
treed40e95a6ae299a283365a88c99cfd8cbe0cdd7aa
parent1c861f7c84b6f092d0662d8b642e9c9daa30105e
t/op/alarm.t: reduce intermittent failures

Fix a race condition where the alarm is reset *after* the handler
and an eval have been removed.

Also, make the points at which time is measured closer to the things
they need to measure, to reduce timing noise on a heavily-loaded system.

Hopefully these measures will reduce the number of random smoke failures,
although I couldn't reproduce the failures, even on a heavily-loaded
machine.
t/op/alarm.t