X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;h=99157462e9566759782c3d8bbd4a4cb98862d7a9;hb=e8b80c1e17161bf15558e17daad71a35b5e173b3;hp=5170fa6ca352cc473aade045a1e4c9c7ad01cc9e;hpb=893a6f6711e298eda86d8696093bf223c431729f;p=spider.git

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);