X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FThingy.pm;h=5d7909cca930df91cf19e3a45710a0caee0bd9a7;hb=487b2a304268a9825e071fc76238749a821ea056;hp=24c8b98f78c72d5a682e24b3e3e16cf2c2039036;hpb=c85cacb2bc438725ee83553226e944f9f605d3b7;p=spider.git

diff --git a/perl/Thingy.pm b/perl/Thingy.pm
index 24c8b98f..5d7909cc 100644
--- a/perl/Thingy.pm
+++ b/perl/Thingy.pm
@@ -78,7 +78,7 @@ sub send
 	# function must return true to make the send happen
 	$sub = "before_send_$class";
 	if ($thing->can($sub)) {
-		return $thing->$sub($dxchan);
+		return unless $thing->$sub($dxchan);
 	}
 	
 	# generate the protocol line which may (or not) be cached