try to fix crashes on AGW with peerhost.

diff --git a/Changes b/Changes
index aa21bfdb6604033e85ccd43bfa6b7b5d7d845b12..261fb369a4e9ea3918b32dcc6d7a623b4123cfe0 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+13Mar10=======================================================================
+1. try to fix AGW crashes caused by peerhost looking at the wrong thing.
 03Mar10=======================================================================
 1. add IP addresses to connecting PC92 A addresses and log them
 2. add CTY-2002 prefixes

diff --git a/perl/AGWMsg.pm b/perl/AGWMsg.pm
index fdd4bc18314fa3cd5caab58afc0674abec2043a6..76b80fde344ef5601c97df9df3f5837e1d744575 100644 (file)
--- a/perl/AGWMsg.pm
+++ b/perl/AGWMsg.pm
@@ -409,6 +409,13 @@ sub _find
        return $circuit{$call};
 }
 
+sub peerhost
+{
+       my $conn = shift;
+       $conn->{peerhost} ||= $conn->{agwcall} || "UNKNOWN";
+       return $conn->{peerhost};
+}
+
 sub connect
 {
        my ($conn, $line) = @_;

diff --git a/perl/Version.pm b/perl/Version.pm
index 2426fd7ce7dd95834fcc32f98f9a71deff7eb76e..42f6c129cda5527da2f7cc812420fb77c47d7d2b 100644 (file)
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
 
 $version = '1.55';
 $subversion = '0';
-$build = '62';
+$build = '63';
 
 1;