X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=0d222859178ef07e06bed935b40cd9fc0d83741b;hb=a162f8f36fe83f8e45b284a5aa5e71022dcd8be2;hp=707dc583c9d1f7a06cffeb0360d8a7fa371cf5c7;hpb=5780a7c31b84976a8a768212c0dd70f928746ebd;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 707dc583..0d222859 100644
--- 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]));