about summary refs log tree commit homepage
path: root/t
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2016-09-09 03:09:00 +0000
committerEric Wong <e@80x24.org>2016-09-09 03:27:51 +0000
commit279955959d2242dfcb1081656806aa1426085bcd (patch)
tree5a58486ca8c9f506dd17bf5789f21eb8c09ef2eb /t
parent0df58f99a71268c98bb21cab0a98ddd25a5b83b2 (diff)
downloadpublic-inbox-279955959d2242dfcb1081656806aa1426085bcd.tar.gz
Output $! for diagnostic purposes since I've noticed this on
two slow machines, today (and seemingly, never prior).
Diffstat (limited to 't')
-rw-r--r--t/httpd-unix.t1
1 files changed, 1 insertions, 0 deletions
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');