X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=531bff7336fb969f19cf581f9d7b5f41f24c4a7d;hb=refs%2Fheads%2Fip_address;hp=c9b58a482cb19398d9e94cc3cf471e3f69bb801d;hpb=82267cf9d2f19618f10e689d7aa5da8a5659c7ce;p=spider.git

diff --git a/perl/Msg.pm b/perl/Msg.pm
index c9b58a48..531bff73 100644
--- 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};
 }