minor debugging change

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index b75d70843321984180a2a942cccd179f0f5d7c39..c0711ceee0820cecb59d484971a730c502a763e6 100644 (file)
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -1514,7 +1514,7 @@ sub _add_thingy
                                delete $things_del{$call};
                        }
                } else {
-                       dbgprintring(10);
+                       dbgprintring(10) if isdbg('nologchan');
                        dbg("DXProt::add_thingy: Trying to add parent $call to itself $ncall, ignored");
                }
        }