diff options
author | Jan Dubois <jand@activestate.com> | 2010-04-22 12:36:31 -0700 |
---|---|---|
committer | Jan Dubois <jand@activestate.com> | 2010-04-22 12:38:43 -0700 |
commit | 2b983d1f35cb13f38b3ba5ebbf83a4020f8d79c0 (patch) | |
tree | 41ed721f6ab819485499a8f0fe2460dfdc43ef4f | |
parent | 94bbb3f46663f977c3c2dad2c182d4985f3ccc60 (diff) | |
download | perl-2b983d1f35cb13f38b3ba5ebbf83a4020f8d79c0.tar.gz |
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.
-rw-r--r-- | 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 f4c95d4578..ffb4aadcf1 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); |