some cosmetic changes to error messages on pc16/19

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 03253bf0b2a50827ad7ef88f9a19cc8cf8472119..da138878fc69e4596dd550de40580db9461e13fe 100644 (file)
--- 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;
                                }