projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add IP Address to PC92 A record
[spider.git]
/
perl
/
Msg.pm
diff --git
a/perl/Msg.pm
b/perl/Msg.pm
index b60ece8a46fd50d0ab9576a206a98e06d71eb4de..c9b58a482cb19398d9e94cc3cf471e3f69bb801d 100644
(file)
--- 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 {
#-----------------------------------------------------------------
# Send side routines
sub connect {
@@
-225,7
+231,8
@@
sub connect {
return undef unless $r || _err_will_block($!);
$conn->{sock} = $sock;
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);
if ($conn->{rproc}) {
my $callback = sub {$conn->_rcv};
set_event_handler ($sock, read => $callback);