From e5c28b46a0f70c78747672091a8edd749aa8488c Mon Sep 17 00:00:00 2001 From: Dirk Koopman 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