]> Sergey Matveev's repositories - public-inbox.git/blobdiff - t/httpd-unix.t
view: adjust wording for reply-to-list configs
[public-inbox.git] / t / httpd-unix.t
index ef827fc669c1f7d280a59878c459006e64058120..4b0f116e8678595ac2a1012e7307d983b32cb610 100644 (file)
@@ -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');