From: minima <minima>
Date: Mon, 5 Jul 2004 08:33:11 +0000 (+0000)
Subject: fix pc27 crash
X-Git-Tag: R_1_51B~29
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=a162f8f36fe83f8e45b284a5aa5e71022dcd8be2;p=spider.git

fix pc27 crash
---

diff --git a/Changes b/Changes
index 9057e4e2..4792fdc0 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+05Jul04=======================================================================
+1. fix rspfcheck on pc27
 23Jun04=======================================================================
 1. Add zone, by_zone, itu, by_itu, state and by_state searches to sh/dx
 2. Update manuals for CVS and new commands
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]));