X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FVPIT-TestHelpers.git;a=blobdiff_plain;f=lib%2FVPIT%2FTestHelpers.pm;fp=lib%2FVPIT%2FTestHelpers.pm;h=65fc2569ba1c2a70776d4cd99d11bb3327bd1f13;hp=27c814907a08f247b9d5b8c3f0be2c5281922f45;hb=cd89e4206b75ac471deac8c71e2655ab19c8ff75;hpb=ded5cdb5a343bc4e48b7a3f19968af3af55a7c0f

diff --git a/lib/VPIT/TestHelpers.pm b/lib/VPIT/TestHelpers.pm
index 27c8149..65fc256 100644
--- a/lib/VPIT/TestHelpers.pm
+++ b/lib/VPIT/TestHelpers.pm
@@ -722,7 +722,8 @@ sub init_usleep {
    diag 'Using sleep()-based fallback usleep()';
    return sub {
     my $s = int($_[0] / 1e6);
-    sleep $s if $s;
+    my $t = sleep $s;
+    return $t * 1e6;
    };
   },
  );