From 82cf94c00faefabee08b8a930dab31de8b75ee49 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Mon, 31 May 1999 09:24:12 +0000
Subject: [PATCH] further fix for DXProt

---
 perl/DXProt.pm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 4bdb307f..19859af0 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -305,8 +305,8 @@ sub normal
 		
 		if ($pcno == 16) {		# add a user
 			my $node = DXCluster->get_exact($field[1]); 
-			last SWITCH if !$node; # ignore if havn't seen a PC19 for this one yet
-			last SWITCH unless $node->isa('DXNode');
+			return unless $node; # ignore if havn't seen a PC19 for this one yet
+			return unless $node->isa('DXNode');
 			if ($node->dxchan != $self) {
 				dbg('chan', "LOOP: come in on wrong channel");
 				return;
@@ -341,7 +341,8 @@ sub normal
 		
 		if ($pcno == 17) {		# remove a user
 			my $node = DXCluster->get_exact($field[2]);
-			last SWITCH unless $node->isa('DXNode');
+			return unless $node;
+			return unless $node->isa('DXNode');
 			if ($node->dxchan != $self) {
 				dbg('chan', "LOOP: come in on wrong channel");
 				return;
@@ -367,12 +368,12 @@ sub normal
 				my $ver = $field[$i+3];
 				
 				# now check the call over
-				my $node = DXCluster->get_exact($call); # we already have this
+				my $node = DXCluster->get_exact($call);
 				if ($node && $node->dxchan != $self) {
 					dbg('chan', "LOOP: come in on wrong channel");
 					return;
 				}
-				next if $node;
+				next if $node; # we already have this
 				
 				# check for sane parameters
 				next if $ver < 5000; # only works with version 5 software
-- 
2.43.0