make sure nothing can be sent to AGW after error

diff --git a/perl/AGWMsg.pm b/perl/AGWMsg.pm
index c167d994a883eb7d0433495b512d03582679060d..4d1068ff35707ca813b03d5ad2dbf86d7da07705 100644 (file)
--- 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 d179c7ce06ab1a9455fe14390610f04c7df12d5f..65bf24fcb346cdfc60463d9b33bffa837f596f54 100644 (file)
--- 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;