disable propagation of PC9x sentences

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 7a9e4ca15f108f0374fdcee54eb91d856082584b..a6abadc83ab1384936093c0954f11fce13a19f9d 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -357,7 +357,7 @@ sub normal
        
        # process PC frames, this will fail unless the frame starts PCnn
        my ($pcno) = $field[0] =~ /^PC(\d\d)/; # just get the number
-       unless (defined $pcno && $pcno >= 10 && $pcno <= 99) {
+       unless (defined $pcno && $pcno >= 10 && $pcno <= 89) { # reject PC9x messages
                dbg("PCPROT: unknown protocol") if isdbg('chanerr');
                return;
        }