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

diff --git a/lib/VPIT/TestHelpers.pm b/lib/VPIT/TestHelpers.pm
index 27c8149..bdc3a4c 100644
--- a/lib/VPIT/TestHelpers.pm
+++ b/lib/VPIT/TestHelpers.pm
@@ -718,16 +718,36 @@ sub init_usleep {
     return undef;
    }
   },
+  'select' => sub {
+   if ($Config::Config{d_select}) {
+    diag 'Using select()-based fallback usleep()';
+    return sub ($) {
+     my $s = $_[0];
+     my $r = 0;
+     while ($s > 0) {
+      my ($found, $t) = select(undef, undef, undef, $s / 1e6);
+      last unless defined $t;
+      $t  = int($t * 1e6);
+      $s -= $t;
+      $r += $t;
+     }
+     return $r;
+    };
+   } else {
+    return undef;
+   }
+  },
   'sleep' => sub {
    diag 'Using sleep()-based fallback usleep()';
-   return sub {
+   return sub ($) {
     my $s = int($_[0] / 1e6);
-    sleep $s if $s;
+    my $t = sleep $s;
+    return $t * 1e6;
    };
   },
  );
 
- @impls = qw<Time::HiRes sleep> unless @impls;
+ @impls = qw<Time::HiRes select sleep> unless @impls;
 
  my $usleep;
  for my $impl (@impls) {