This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/sselect.t: reduce random failures (hopefully)
authorDavid Mitchell <davem@iabyn.com>
Thu, 9 Jun 2011 15:50:50 +0000 (16:50 +0100)
committerDavid Mitchell <davem@iabyn.com>
Thu, 9 Jun 2011 15:53:42 +0000 (16:53 +0100)
commitb3d9788e2717b8b7b60c75875e4fb207852f7203
tree2d44aaf0d0910e89806f4e13c2e740bdedcf57fd
parent8075d46ebf11d41b9aa800b7903b2b3654b7d0a0
t/op/sselect.t: reduce random failures (hopefully)

Use Time::HiRes if available to get more accurate times,
and extend the 'select(,,,N) may sleep for less than N' fudge to all
platforms, not just Windows, on the grounds that reportedly other OSes
suffer from this problem too. However, if HiRes is available, make the
'under' margin only 0.1s rather than 1s.
t/op/sselect.t