fix (remove) peerhost on connect error

diff --git a/cmd/set/echo.pl b/cmd/set/echo.pl
index ccbc843a0906b49dc3a00b177dd9a665c0869ff5..4e14b995965bd89b730e88420b130bedb519629e 100644 (file)
--- 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 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};

diff --git a/perl/Version.pm b/perl/Version.pm
index 017220055664742102b777b75a09a493e8cd7362..cfa5724af8ea1f88f127ca7ce2ea55589b1aabda 100644 (file)
--- 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;