# 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
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;
}