From: Dirk Koopman <djk@tobit.co.uk>
Date: Thu, 22 Dec 2011 23:13:46 +0000 (+0000)
Subject: fix (remove) peerhost on connect error
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=a60f14f41cc0b63a9a6e94bc78aecaf4b04a48c6;p=spider.git

fix (remove) peerhost on connect error
---

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;