From: Vincent Pit <vince@profvince.com>
Date: Thu, 9 Apr 2015 16:59:15 +0000 (-0300)
Subject: Make fallback usleep() really take microseconds
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=09bc4632d4b12d88192269d8e57251b41e157380;p=perl%2Fmodules%2FVPIT-TestHelpers.git

Make fallback usleep() really take microseconds
---

diff --git a/lib/VPIT/TestHelpers.pm b/lib/VPIT/TestHelpers.pm
index f00b94d..763c711 100644
--- a/lib/VPIT/TestHelpers.pm
+++ b/lib/VPIT/TestHelpers.pm
@@ -622,7 +622,7 @@ sub init_usleep {
  } else {
   diag 'Using fallback usleep()';
   $usleep = sub {
-   my $s = int($_[0] / 2.5e5);
+   my $s = int($_[0] / 1e6);
    sleep $s if $s;
   };
  }