From b9442c2b0652357a867dc29ebb51c36a73e7f8dd Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Sun, 31 Oct 1999 17:37:35 +0000
Subject: [PATCH] *** empty log message ***

---
 perl/DXProt.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 46ba8909..ee8c4aa9 100644
--- 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]);
-- 
2.43.0