replace eph_dup for PC21s

[spider.git] / perl / DXProtHandle.pm

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 5170fa6ca352cc473aade045a1e4c9c7ad01cc9e..99157462e9566759782c3d8bbd4a4cb98862d7a9 100644 (file)
--- 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);