[Catalyst-dev] Patch to Catalyst/Engine/HTTP.pm

[Peter Edwards]

Skipped content of type multipart/alternative-------------- next part --------------
339c339
<     my ( undef, $iaddr ) = sockaddr_in($remote_sockaddr);
---
>     my ( undef, $iaddr ) = $remote_sockaddr ? sockaddr_in($remote_sockaddr) : (undef, undef);
344,345c344,345
<         peername => gethostbyaddr( $iaddr, AF_INET ) || "localhost",
<         peeraddr => inet_ntoa($iaddr) || "127.0.0.1",
---
>         peername  => ($iaddr ? (gethostbyaddr($iaddr, AF_INET)||"127.0.0.1/Unknown") : "127.0.0.1/Unknown"),
>         peeraddr => ($iaddr ? inet_ntoa($iaddr) : '127.0.0.1'),