X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=531bff7336fb969f19cf581f9d7b5f41f24c4a7d;hb=cf3be2ab23c544fdb17d40cbff47f8a6631e9fdb;hp=c9b58a482cb19398d9e94cc3cf471e3f69bb801d;hpb=e1d5c2a325cb6b8674eab55c23f12445aae01f52;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};
 }