projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix (remove) peerhost on connect error
[spider.git]
/
perl
/
ExtMsg.pm
diff --git
a/perl/ExtMsg.pm
b/perl/ExtMsg.pm
index 7b5bb672aeb4e7bfa827499ea1633a15435aabdf..398679c40afa9371a040acff984cdc8f09a88e19 100644
(file)
--- a/
perl/ExtMsg.pm
+++ b/
perl/ExtMsg.pm
@@
-152,7
+152,7
@@
sub to_connected
delete $conn->{timeout};
$conn->{csort} = $sort;
unless ($conn->ax25) {
delete $conn->{timeout};
$conn->{csort} = $sort;
unless ($conn->ax25) {
-
eval {$conn->{peerhost} = $conn->{sock}->peername
};
+
# eval {$conn->{peerhost} = $conn->{sock}->{fh}->peerhost
};
}
&{$conn->{rproc}}($conn, "$dir$call|$sort");
$conn->_send_file("$main::data/connected") unless $conn->{outgoing};
}
&{$conn->{rproc}}($conn, "$dir$call|$sort");
$conn->_send_file("$main::data/connected") unless $conn->{outgoing};