fix pc27 crash

diff --git a/Changes b/Changes
index 9057e4e2e7d99da2262376723bb440fd52da9f55..4792fdc0d1af8aa600298ec05a5119b07640e513 100644 (file)
--- 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 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]));