From 20c965763d3341e97e09f608f1419a933df1d742 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sun, 10 Jun 2001 00:32:21 +0000
Subject: [PATCH] add missing return on end of pc41 processing

---
 perl/DXProt.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 01adbc7d..dfb571b2 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -913,10 +913,13 @@ sub normal
 			$user->put;
 			my $ref = Route::get($call);
 			$self->route_pc41($ref, $call, $field[2], $field[3], $field[4]) if $ref && !eph_dup($line);
+			return;
 		}
+
 		if ($pcno == 43) {
 			last SWITCH;
 		}
+
 		if ($pcno == 37 || $pcno == 44 || $pcno == 45 || $pcno == 46 || $pcno == 47 || $pcno == 48) {
 			DXDb::process($self, $line);
 			return;
-- 
2.43.0