add logging of PC92A ip addresses

[spider.git] / perl / Msg.pm

diff --git a/perl/Msg.pm b/perl/Msg.pm
index c9b58a482cb19398d9e94cc3cf471e3f69bb801d..531bff7336fb969f19cf581f9d7b5f41f24c4a7d 100644 (file)
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -196,6 +196,10 @@ sub pid_gone
 sub peerhost
 {
        my $self = shift;
+       my $ip;
+       unless ($self->{peerhost}) {
+               $self->{peerhost} = $self->{sock}->peerhost;
+       }
        return $self->{peerhost};
 }