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