X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FAGWMsg.pm;fp=perl%2FAGWMsg.pm;h=4d1068ff35707ca813b03d5ad2dbf86d7da07705;hp=c167d994a883eb7d0433495b512d03582679060d;hb=1a704d7335183775146b29a32973961a4b799f87;hpb=8655b1a19d9458c7e0d185859a876740e3cda6ad

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') {