From 77fd72a34c14013dcb9430408e83cb30581f7cc2 Mon Sep 17 00:00:00 2001 From: minima Date: Wed, 8 Aug 2001 15:57:40 +0000 Subject: [PATCH] add proper DXMsg --- perl/DXMsg.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm index 2cdb6a80..f136b16e 100644 --- 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 + if (exists $busy{$fromnode}) { my $ref = $busy{$fromnode}; my $tonode = $ref->{tonode}; - dbg("Busy, stopping msgno: $ref->{msgno} -> $fromnode") if isdbg('msg'); + dbg("Busy, stopping msgno: $ref->{msgno} $fromnode->$tonode") if isdbg('msg'); $ref->stop_msg($self->call); } -- 2.43.0