projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix pc27 crash
[spider.git]
/
perl
/
DXProt.pm
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 707dc583c9d1f7a06cffeb0360d8a7fa371cf5c7..0d222859178ef07e06bed935b40cd9fc0d83741b 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-1124,7
+1124,10
@@
sub handle_23
}
}
}
}
- return if $rspfcheck and !$self->rspfcheck(1, $_[8], $_[7]);
+ # only do a rspf check on PC23 (not 27)
+ if ($pcno == 23) {
+ return if $rspfcheck and !$self->rspfcheck(1, $_[8], $_[7])
+ }
# do some de-duping
my $d = cltounix($_[1], sprintf("%02d18Z", $_[2]));
# do some de-duping
my $d = cltounix($_[1], sprintf("%02d18Z", $_[2]));