X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=da138878fc69e4596dd550de40580db9461e13fe;hb=974132fc71b24d52a34484178d22b97c5ccecef9;hp=03253bf0b2a50827ad7ef88f9a19cc8cf8472119;hpb=f27dfe9a147f72b0d1e95ca4d3d99321460f18a5;p=spider.git

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