*** empty log message ***

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 46ba890932204210fda710a84fe993d20e45ec36..ee8c4aa9ef4d03e97fdfe0894e431f036ccb912c 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -197,7 +197,10 @@ sub normal
                        }
                        
                        # if this is a 'nodx' node then ignore it
-                       last SWITCH if grep $field[7] =~ /^$_/,  @DXProt::nodx_node;
+                       if (grep $field[7] =~ /^$_/,  @DXProt::nodx_node) {
+                               dbg('chan', "Bad DXNode, dropped");
+                               return;
+                       }
                        
                        # convert the date to a unix date
                        my $d = cltounix($field[3], $field[4]);