From 1a704d7335183775146b29a32973961a4b799f87 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
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.34.1