]> git.vpit.fr Git - perl/modules/VPIT-TestHelpers.git/commitdiff
Make fallback usleep() really take microseconds
authorVincent Pit <vince@profvince.com>
Thu, 9 Apr 2015 16:59:15 +0000 (13:59 -0300)
committerVincent Pit <vince@profvince.com>
Thu, 9 Apr 2015 16:59:15 +0000 (13:59 -0300)
lib/VPIT/TestHelpers.pm

index f00b94df47198bf8656af87751e160fe9af369b5..763c7115a5f22e780dc04b1513d28b3d17526d6b 100644 (file)
@@ -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;
   };
  }