X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=da138878fc69e4596dd550de40580db9461e13fe;hb=03691f94fb11cdce388f89cd81b474e3505912c8;hp=03253bf0b2a50827ad7ef88f9a19cc8cf8472119;hpb=5b3f4e20affe90bff9909272a933834247a2ed9d;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;
 				}