diff options
Diffstat (limited to 't/lib/MemcachedTest.pm')
-rw-r--r-- | t/lib/MemcachedTest.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/t/lib/MemcachedTest.pm b/t/lib/MemcachedTest.pm index a9557e5..d917bf2 100644 --- a/t/lib/MemcachedTest.pm +++ b/t/lib/MemcachedTest.pm @@ -352,8 +352,7 @@ sub new_memcached { # A slow/emulated/valgrinded/etc system may take longer than a second # for the unix socket to appear. my $filename = $1; - for (1..20) { - sleep 1; + for (1..60) { my $conn = IO::Socket::UNIX->new(Peer => $filename); if ($conn) { @@ -364,7 +363,7 @@ sub new_memcached { port => $port); } else { croak("Failed to connect to unix socket: memcached not running") unless is_running($childpid); - sleep 1; + select undef, undef, undef, 0.20; } } croak("Failed to connect to unix domain socket: $! '$filename'") if $@; |