=item -
-C<@impls> is the list of desired implementations (which may be C<'Time::HiRes'> or C<'sleep'>), in the order they should be checked.
+C<@impls> is the list of desired implementations (which may be C<'Time::HiRes'>, C<'select'> or C<'sleep'>), in the order they should be checked.
When the list is empty, it defaults to all of them.
=back
'select' => sub {
if ($Config::Config{d_select}) {
diag 'Using select()-based fallback usleep()';
- return sub {
+ return sub ($) {
my $s = $_[0];
my $r = 0;
while ($s > 0) {
},
'sleep' => sub {
diag 'Using sleep()-based fallback usleep()';
- return sub {
- my $s = int($_[0] / 1e6);
- my $t = sleep $s;
+ return sub ($) {
+ my $ms = int $_[0];
+ my $s = int($ms / 1e6) + ($ms % 1e6 == 0 ? 0 : 1);
+ my $t = sleep $s;
return $t * 1e6;
};
},