Make sure the sleep() fallback implementation sleeps long enough

[perl/modules/VPIT-TestHelpers.git] / lib / VPIT / TestHelpers.pm

diff --git a/lib/VPIT/TestHelpers.pm b/lib/VPIT/TestHelpers.pm
index bdc3a4c465d3e8bc7c1f0cf2898beb3b901dd670..b7b7635dafc634647b02a13f9492925d0f7ceae4 100644 (file)
--- a/lib/VPIT/TestHelpers.pm
+++ b/lib/VPIT/TestHelpers.pm
@@ -740,8 +740,9 @@ sub init_usleep {
   'sleep' => sub {
    diag 'Using sleep()-based fallback usleep()';
    return sub ($) {
-    my $s = int($_[0] / 1e6);
-    my $t = sleep $s;
+    my $ms = int $_[0];
+    my $s  = int($ms / 1e6) + ($ms % 1e6 == 0 ? 0 : 1);
+    my $t  = sleep $s;
     return $t * 1e6;
    };
   },