X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=c9b58a482cb19398d9e94cc3cf471e3f69bb801d;hb=e1d5c2a325cb6b8674eab55c23f12445aae01f52;hp=b60ece8a46fd50d0ab9576a206a98e06d71eb4de;hpb=bbb282d33d288e42a868cefdf8328bb966a3f5ba;p=spider.git

diff --git a/perl/Msg.pm b/perl/Msg.pm
index b60ece8a..c9b58a48 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -193,6 +193,12 @@ sub pid_gone
 	}
 }
 
+sub peerhost
+{
+	my $self = shift;
+	return $self->{peerhost};
+}
+
 #-----------------------------------------------------------------
 # Send side routines
 sub connect {
@@ -225,7 +231,8 @@ sub connect {
 	return undef unless $r || _err_will_block($!);
 	
 	$conn->{sock} = $sock;
-    
+	$conn->{peerhost} = $sock->peerhost;	# for consistency
+
     if ($conn->{rproc}) {
         my $callback = sub {$conn->_rcv};
         set_event_handler ($sock, read => $callback);