From: Dirk Koopman 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.org/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;