diff options
Diffstat (limited to 't')
-rw-r--r-- | t/httpd-unix.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/httpd-unix.t b/t/httpd-unix.t index 758277c9..04f4b8fa 100644 --- a/t/httpd-unix.t +++ b/t/httpd-unix.t @@ -42,8 +42,9 @@ my $spawn_httpd = sub { ok(!-S $unix, 'UNIX socket does not exist, yet'); $spawn_httpd->("-l$unix"); +my %o = (Peer => $unix, Type => SOCK_STREAM); for (1..1000) { - last if -S $unix; + last if -S $unix && IO::Socket::UNIX->new(%o); select undef, undef, undef, 0.02 } |