daemon: sockname detects listeners correctly

This means we can avoid false-positives when inheriting multiple
Unix domain sockets.

1 files changed, 4 insertions, 0 deletions

diff --git a/lib/PublicInbox/Daemon.pm b/lib/PublicInbox/Daemon.pm
index 51562624..a6707e83 100644
--- a/lib/PublicInbox/Daemon.pm
+++ b/lib/PublicInbox/Daemon.pm
@@ -185,6 +185,10 @@ sub sockname ($) {
         my ($s) = @_;
         my $addr = getsockname($s) or return;
         my ($host, $port) = host_with_port($addr);
+        if ($port == 0 && $host eq '127.0.0.1') {
+                my ($path) = Socket::sockaddr_un($addr);
+                return $path;
+        }
         "$host:$port";
 }