From e8b80c1e17161bf15558e17daad71a35b5e173b3 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Mon, 5 Feb 2007 16:35:21 +0000
Subject: [PATCH] replace eph_dup for PC21s

---
 perl/DXProtHandle.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 5170fa6c..99157462 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -872,6 +872,11 @@ sub handle_21
 		return;
 	}
 
+	if (eph_dup($line)) {
+		dbg("PCPROT: dup PC21 detected") if isdbg('chanerr');
+		return;
+	}
+
 	if (@rout) {
 		$self->route_pc21($origin, $line, @rout);
 #		$self->route_pc92d($main::mycall, $line, $main::routeroot, @rout);
-- 
2.34.1