From 1a704d7335183775146b29a32973961a4b799f87 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Tue, 26 Feb 2008 13:40:47 +0000 Subject: [PATCH] make sure nothing can be sent to AGW after error --- perl/AGWMsg.pm | 2 ++ perl/Version.pm | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/perl/AGWMsg.pm b/perl/AGWMsg.pm index c167d994..4d1068ff 100644 --- a/perl/AGWMsg.pm +++ b/perl/AGWMsg.pm @@ -125,6 +125,8 @@ sub _sendf my $pid = shift || 0; my $data = shift || ''; my $len = 0; + + return unless $sock; $len = length $data; if ($sort eq 'y' || $sort eq 'H') { diff --git a/perl/Version.pm b/perl/Version.pm index d179c7ce..65bf24fc 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 = '208'; +$build = '209'; 1; -- 2.43.0