From 279955959d2242dfcb1081656806aa1426085bcd Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Fri, 9 Sep 2016 03:09:00 +0000 Subject: t/httpd-unix: warn about connection failure Output $! for diagnostic purposes since I've noticed this on two slow machines, today (and seemingly, never prior). --- t/httpd-unix.t | 1 + 1 file changed, 1 insertion(+) (limited to 't') diff --git a/t/httpd-unix.t b/t/httpd-unix.t index ef827fc6..4b0f116e 100644 --- a/t/httpd-unix.t +++ b/t/httpd-unix.t @@ -54,6 +54,7 @@ ok(-S $unix, 'UNIX socket was bound by -httpd'); sub check_sock ($) { my ($unix) = @_; my $sock = IO::Socket::UNIX->new(Peer => $unix, Type => SOCK_STREAM); + warn "E: $! connecting to $unix\n" unless defined $sock; ok($sock, 'client UNIX socket connected'); ok($sock->write("GET /host-port HTTP/1.0\r\n\r\n"), 'wrote req to server'); -- cgit v1.2.3-24-ge0c7