From a162f8f36fe83f8e45b284a5aa5e71022dcd8be2 Mon Sep 17 00:00:00 2001 From: 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.43.0