From: minima <minima>
Date: Wed, 8 Aug 2001 15:57:40 +0000 (+0000)
Subject: add proper DXMsg
X-Git-Tag: NEW_ROUTE_MERGED^0
X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=77fd72a34c14013dcb9430408e83cb30581f7cc2;hp=6624dcdf07d628e8d6a16fc6549edf40be25b7b2;p=spider.git

add proper DXMsg
---

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);
 			}