Fix bug in hostname grab. Thanks, @skaji

genio · genio · commit 4b333e97b017 · 2019-07-26T10:19:50.000-04:00
diff --git a/lib/HTTP/Daemon.pm b/lib/HTTP/Daemon.pm
@@ -53,7 +53,7 @@ sub url {
         $url .= '[' . inet_ntop(AF_INET6, $addr) . ']';
     }
     else {
-        my $host = $addr->sockhostname;
+        my $host = $self->sockhostname;
         if (!defined $host) {
             if (sockaddr_family($addr) eq AF_INET6) {
                 $host = '[' . inet_ntop(AF_INET6, $addr) . ']';

Original file line number	Diff line number	Diff line change
`@@ -53,7 +53,7 @@ sub url {`
`53`	`53`	`$url .= '[' . inet_ntop(AF_INET6, $addr) . ']';`
`54`	`54`	`}`
`55`	`55`	`else {`
`56`		`- my $host = $addr->sockhostname;`
	`56`	`+ my $host = $self->sockhostname;`
`57`	`57`	`if (!defined $host) {`
`58`	`58`	`if (sockaddr_family($addr) eq AF_INET6) {`
`59`	`59`	`$host = '[' . inet_ntop(AF_INET6, $addr) . ']';`