projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
disable propagation of PC9x sentences
[spider.git]
/
perl
/
Thingy.pm
diff --git
a/perl/Thingy.pm
b/perl/Thingy.pm
index 24c8b98f78c72d5a682e24b3e3e16cf2c2039036..afc2129b913641eaaaf641330781de873bc535cd 100644
(file)
--- 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)) {
# 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
}
# 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);
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;
}
$dd->Quotekeys($] < 5.005 ? 1 : 0);
return $dd->Dumpxs;
}