From a60f14f41cc0b63a9a6e94bc78aecaf4b04a48c6 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Thu, 22 Dec 2011 23:13:46 +0000 Subject: [PATCH] fix (remove) peerhost on connect error --- cmd/set/echo.pl | 1 + perl/ExtMsg.pm | 2 +- perl/Version.pm | 4 ++-- 3 files changed, 4 insertions(+), 3 deletions(-) diff --git a/cmd/set/echo.pl b/cmd/set/echo.pl index ccbc843a..4e14b995 100644 --- a/cmd/set/echo.pl +++ b/cmd/set/echo.pl @@ -6,6 +6,7 @@ # # my $self = shift; +$self->send_now("E", "1"); $self->conn->echo(1); $self->user->wantecho(1); return (1, $self->msg('echoon')); 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}; diff --git a/perl/Version.pm b/perl/Version.pm index 01722005..cfa5724a 100644 --- a/perl/Version.pm +++ b/perl/Version.pm @@ -11,7 +11,7 @@ use vars qw($version $subversion $build $gitversion); $version = '1.56'; $subversion = '0'; -$build = '5'; -$gitversion = 'bb0a21b'; +$build = '6'; +$gitversion = '7f629e3'; 1; -- 2.43.0