From 77fd72a34c14013dcb9430408e83cb30581f7cc2 Mon Sep 17 00:00:00 2001
From: minima <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.34.1