projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
de7f7db
)
fix before_send logic
author
minima
<minima>
Wed, 23 Feb 2005 16:11:09 +0000
(16:11 +0000)
committer
minima
<minima>
Wed, 23 Feb 2005 16:11:09 +0000
(16:11 +0000)
perl/AMsg.pm
patch
|
blob
|
history
perl/Thingy.pm
patch
|
blob
|
history
diff --git
a/perl/AMsg.pm
b/perl/AMsg.pm
index 4ca43cb495951433f88cf4e325f548e9d3d7e037..4738403a5bf2d2b1f6aee333ac8709ce3c1208c5 100644
(file)
--- a/
perl/AMsg.pm
+++ b/
perl/AMsg.pm
@@
-126,7
+126,6
@@
sub new_client {
$conn->{outbound} = 0;
$conn->{state} = 'WH'; # wait for return authorize
my $thing = $conn->{lastthing} = Thingy::Hello->new();
$conn->{outbound} = 0;
$conn->{state} = 'WH'; # wait for return authorize
my $thing = $conn->{lastthing} = Thingy::Hello->new();
-
$thing->send($conn, 'Aranea');
dbg("-> D $conn->{peerhost} $thing->{Aranea}") if isdbg('chan');
}
$thing->send($conn, 'Aranea');
dbg("-> D $conn->{peerhost} $thing->{Aranea}") if isdbg('chan');
}
diff --git
a/perl/Thingy.pm
b/perl/Thingy.pm
index 308e80c3d67c3dd13e72576c09f7bceead959887..10f20f28714f3a73d988fce6812b95cec8462947 100644
(file)
--- a/
perl/Thingy.pm
+++ b/
perl/Thingy.pm
@@
-74,7
+74,9
@@
sub send
# before send (and line generation) things
# function must return true to make the send happen
$sub = "before_send_$class";
# before send (and line generation) things
# function must return true to make the send happen
$sub = "before_send_$class";
- return unless $thing->can($sub) && $thing->$sub($dxchan);
+ if ($thing->can($sub)) {
+ return $thing->$sub($dxchan);
+ }
# generate the protocol line which may (or not) be cached
my $ref;
# generate the protocol line which may (or not) be cached
my $ref;