projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
6624dcd
)
add proper DXMsg
NEW_ROUTE_MERGED
author
minima
<minima>
Wed, 8 Aug 2001 15:57:40 +0000
(15:57 +0000)
committer
minima
<minima>
Wed, 8 Aug 2001 15:57:40 +0000
(15:57 +0000)
perl/DXMsg.pm
patch
|
blob
|
history
diff --git
a/perl/DXMsg.pm
b/perl/DXMsg.pm
index 2cdb6a8028a15bb2d11e4ae27a1755b1e23e15d1..f136b16e7b23750192b817f27055caf0592e8fef 100644
(file)
--- a/
perl/DXMsg.pm
+++ b/
perl/DXMsg.pm
@@
-165,10
+165,11
@@
sub process
# first look for any messages in the busy queue
# and cancel them this should both resolve timed out incoming messages
# and crossing of message between nodes, incoming messages have priority
# first look for any messages in the busy queue
# and cancel them this should both resolve timed out incoming messages
# and crossing of message between nodes, incoming messages have priority
+
if (exists $busy{$fromnode}) {
my $ref = $busy{$fromnode};
my $tonode = $ref->{tonode};
if (exists $busy{$fromnode}) {
my $ref = $busy{$fromnode};
my $tonode = $ref->{tonode};
- dbg("Busy, stopping msgno: $ref->{msgno}
-> $from
node") if isdbg('msg');
+ dbg("Busy, stopping msgno: $ref->{msgno}
$fromnode->$to
node") if isdbg('msg');
$ref->stop_msg($self->call);
}
$ref->stop_msg($self->call);
}