X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXProt.pm;h=c5882c3660ddec7a52cc84338be0a268b8e668df;hb=e90334372dd94c9deca9855be9ac7527a0da7870;hp=8ca96434b1448a44f9cdfeb133025cf0247cdbcc;hpb=3f1c5ab45aa13e99da6bea0bfcc6d4434beb5871;p=spider.git diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 8ca96434..c5882c36 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -159,7 +159,7 @@ sub normal return if $pcno < 10 || $pcno > 99; # dump bad protocol messages - if ($line =~ /\%[01][0-9A-F]/) { + if ($pcno != 29 && $line =~ /\%[01][0-9A-F]/) { dbg('chan', "CORRUPT protocol message - dumped"); return; }