From a162f8f36fe83f8e45b284a5aa5e71022dcd8be2 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Mon, 5 Jul 2004 08:33:11 +0000
Subject: [PATCH] fix pc27 crash

---
 Changes        | 2 ++
 perl/DXProt.pm | 5 ++++-
 2 files changed, 6 insertions(+), 1 deletion(-)

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]));
-- 
2.34.1