From: Dirk Koopman <djk@tobit.co.uk>
Date: Sat, 19 Jan 2008 22:59:39 +0000 (+0000)
Subject: don't linger on AGWMsg connections.
X-Git-Tag: 1.55~21
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=e5c28b46a0f70c78747672091a8edd749aa8488c

don't linger on AGWMsg connections.
---

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;