more debugging

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 3407e9bc03c6a297eacc868c5a9d1adc1bf318c7..4ea652afefefaef6a0c01c0e03e814894a88c5db 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -817,7 +817,7 @@ sub gen_pc92_update
                } 
        }
 
-       dbg('ROUTE: DXProt::gen_pc92_update end') if isdbg('route');
+       dbg('ROUTE: DXProt::gen_pc92_update end with ' . scalar @lines . ' lines') if isdbg('route');
        return @lines;
 }