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) {
-               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};