X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FThingy.pm;h=afc2129b913641eaaaf641330781de873bc535cd;hb=97917206e050a6584f89e53d63481eeea66ff43c;hp=24c8b98f78c72d5a682e24b3e3e16cf2c2039036;hpb=62df15dc544d86345ea75b2e72e5215f9841f430;p=spider.git

diff --git a/perl/Thingy.pm b/perl/Thingy.pm
index 24c8b98f..afc2129b 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
@@ -218,7 +218,7 @@ sub ascii
 	my $dd = new Data::Dumper([$thing]);
 	$dd->Indent(0);
 	$dd->Terse(1);
-	$dd->Sortkeys(1);
+	#$dd->Sortkeys(1);
     $dd->Quotekeys($] < 5.005 ? 1 : 0);
 	return $dd->Dumpxs;
 }