I thought that got fixed? Changes supports my memory:
1.53 [2003-12-30]
- Windows: higher resolution time() by using the Windows
performance counter API, from Jan Dubois and Anton Shcherbinin.
The exact new higher resolution depends on the hardware,
but it should be quite a bit better than using the basic
Windows timers.
Here's some code that will test this. I only have version 1.2, so I'm still using the lower res timer.
use Time::HiRes qw( time sleep );
my @times = map { time } 0..200;
#my @times = map { sleep(0.001); time } 0..200;
my @time_diffs = map { $times[$_] - $times[$_-1] } 1..$#times;
$, = "\n";
$\ = "\n";
print @time_diffs;
|