From: minima <minima>
Date: Mon, 27 Nov 2000 09:45:43 +0000 (+0000)
Subject: some cosmetic changes to error messages on pc16/19
X-Git-Tag: R_1_45~17
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=974132fc71b24d52a34484178d22b97c5ccecef9;p=spider.git

some cosmetic changes to error messages on pc16/19
---

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 03253bf0..da138878 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -539,7 +539,7 @@ sub normal
 						dbg('chan', "LOOP: $call is a node");
 						next;
 					}
-					my $rcall = $ref->call;
+					my $rcall = $ref->mynode->call;
 					dbg('chan', "LOOP: already have $call on $rcall");
 					next;
 				}
@@ -644,7 +644,8 @@ sub normal
 						dbg('chan', "LOOP: $call come in on wrong channel");
 						next;
 					}
-					dbg('chan', "already have $call");
+					my $rcall = $node->mynode->call;
+					dbg('chan', "already have $call on $rcall");
 					next;
 				}