From: Dirk Koopman <djk@tobit.co.uk>
Date: Tue, 26 Feb 2008 13:40:47 +0000 (+0000)
Subject: make sure nothing can be sent to AGW after error
X-Git-Tag: 1.55~11
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=1a704d7335183775146b29a32973961a4b799f87;p=spider.git

make sure nothing can be sent to AGW after error
---

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;