From d07796be85c0d4b73ff645668e9c809ac53c27a2 Mon Sep 17 00:00:00 2001
From: des <des@d4fa192b-c00b-0410-8231-f00ffab90ce4>
Date: Fri, 29 Jun 2007 14:05:21 +0000
Subject: [PATCH] Add an usleep() method based on select().

git-svn-id: svn+ssh://projects.linpro.no/svn/varnish/trunk@1602 d4fa192b-c00b-0410-8231-f00ffab90ce4
---
 varnish-tools/regress/lib/Varnish/Test/Case.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/varnish-tools/regress/lib/Varnish/Test/Case.pm b/varnish-tools/regress/lib/Varnish/Test/Case.pm
index 22868ac1..5cf25192 100644
--- a/varnish-tools/regress/lib/Varnish/Test/Case.pm
+++ b/varnish-tools/regress/lib/Varnish/Test/Case.pm
@@ -188,4 +188,10 @@ sub ev_client_timeout($$) {
     return $client;
 }
 
+sub usleep($$) {
+    my ($self, $usec) = @_;
+
+    select(undef, undef, undef, $usec / 1000000.0);
+}
+
 1;
-- 
2.39.5