This file documents the revision history for Perl extension Catalyst.
?5.7004? 2006-10-25 ??:??:??
- - Fix Engine::HTTP crash when using IE. (Jesper Krogh)
+ - Fix Engine::HTTP crash when using IE. (Jesper Krogh, Peter Edwards)
- clean up Catalyst::Utils to handle some edge cases
- Properly work around lighttpd PATH_INFO vs. SCRIPT_NAME bug.
(Mark Blythe)
sub _socket_data {
my ( $self, $handle ) = @_;
- my $iaddr;
-
my $remote_sockaddr = getpeername($handle);
- ( undef, $iaddr ) = sockaddr_in($remote_sockaddr);
+ my ( undef, $iaddr ) = $remote_sockaddr
+ ? sockaddr_in($remote_sockaddr)
+ : (undef, undef);
+
my $local_sockaddr = getsockname($handle);
my ( undef, $localiaddr ) = sockaddr_in($local_sockaddr);