From 7c7080ad7019d6e23a8ad401256122e81fa03a5a Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Sat, 13 Mar 2010 15:55:04 +0000
Subject: [PATCH] try to fix crashes on AGW with peerhost.

---
 Changes         | 2 ++
 perl/AGWMsg.pm  | 7 +++++++
 perl/Version.pm | 2 +-
 3 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index aa21bfdb..261fb369 100644
--- 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 fdd4bc18..76b80fde 100644
--- 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 2426fd7c..42f6c129 100644
--- 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;
-- 
2.34.1