X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FExtMsg.pm;h=398679c40afa9371a040acff984cdc8f09a88e19;hb=a60f14f41cc0b63a9a6e94bc78aecaf4b04a48c6;hp=7b5bb672aeb4e7bfa827499ea1633a15435aabdf;hpb=7f629e3e56b8f6b42a6ccecb7c4b882ad6003b3e;p=spider.git

diff --git a/perl/ExtMsg.pm b/perl/ExtMsg.pm
index 7b5bb672..398679c4 100644
--- 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};