fix find

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 78c39f1635639091235e15a9b78b79e9172b6485..7972bc3bf83f6ba7baa677ed29ebac82e7fd0fb1 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1541,7 +1541,7 @@ sub handle_51
        my $line = shift;
        my $origin = shift;
 
-       if (eph_dup($line)) {
+       if (eph_dup($line, 60)) {
                dbg("PCPROT: dup PC51 detected") if isdbg('chanerr');
                return;
        }