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=bdc3a4c465d3e8bc7c1f0cf2898beb3b901dd670;hp=f45da916882cf897002deb734a92cee7bd90abe6;hb=7f0ff09635ac5356801d548bb603970e45d53511;hpb=6e034dba301409cee65c0f76f094eb8eb4b42110

diff --git a/lib/VPIT/TestHelpers.pm b/lib/VPIT/TestHelpers.pm
index f45da91..bdc3a4c 100644
--- a/lib/VPIT/TestHelpers.pm
+++ b/lib/VPIT/TestHelpers.pm
@@ -721,7 +721,7 @@ sub init_usleep {
   '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) {
@@ -739,7 +739,7 @@ sub init_usleep {
   },
   'sleep' => sub {
    diag 'Using sleep()-based fallback usleep()';
-   return sub {
+   return sub ($) {
     my $s = int($_[0] / 1e6);
     my $t = sleep $s;
     return $t * 1e6;