From e5c28b46a0f70c78747672091a8edd749aa8488c Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Sat, 19 Jan 2008 22:59:39 +0000
Subject: [PATCH] don't linger on AGWMsg connections.

---
 perl/ExtMsg.pm  | 2 +-
 perl/Version.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl/ExtMsg.pm b/perl/ExtMsg.pm
index 19380b44..1f543fc0 100644
--- a/perl/ExtMsg.pm
+++ b/perl/ExtMsg.pm
@@ -151,7 +151,7 @@ sub to_connected
 	delete $conn->{cmd};
 	$conn->{timeout}->del if $conn->{timeout};
 	delete $conn->{timeout};
-	$conn->nolinger;
+	$conn->nolinger unless $conn->isa('AGWMsg');
 	&{$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 6299bcf6..03598dd4 100644
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
 
 $version = '1.54';
 $subversion = '0';
-$build = '198';
+$build = '199';
 
 1;
-- 
2.43.0