In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/2b983d1f35cb13f38b3ba5ebbf83a4020f8d79c0?hp=94bbb3f46663f977c3c2dad2c182d4985f3ccc60>
- Log ----------------------------------------------------------------- commit 2b983d1f35cb13f38b3ba5ebbf83a4020f8d79c0 Author: Jan Dubois <[email protected]> Date: Thu Apr 22 12:36:31 2010 -0700 time() resolution is full seconds So any fudging in the timing needs to be at least 1 second to have any effect. Upped the total $sleep value to 4 (on Windows) to make sure at least 3 seconds have passed. Amends commit 0ebb4f0. ----------------------------------------------------------------------- Summary of changes: t/op/sselect.t | 6 ++++-- 1 files changed, 4 insertions(+), 2 deletions(-) diff --git a/t/op/sselect.t b/t/op/sselect.t index f4c95d4..ffb4aad 100644 --- a/t/op/sselect.t +++ b/t/op/sselect.t @@ -31,11 +31,13 @@ like ($@, qr/^Modification of a read-only value attempted/); eval {select $blank, $blank, "a", 0}; like ($@, qr/^Modification of a read-only value attempted/); -my $sleep = 3; +my($sleep,$fudge) = (3,0); # Actual sleep time on Windows may be rounded down to an integral # multiple of the system clock tick interval. Clock tick interval # is configurable, but usually about 15.625 milliseconds. -my $fudge = $^O eq "MSWin32" ? 0.1 : 0; +# time() however doesn't return fractional values, so the observed +# delay may be 1 second short. +($sleep,$fudge) = (4,1) if $^O eq "MSWin32"; my $t = time; select(undef, undef, undef, $sleep); -- Perl5 Master Repository
