projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5780a7c
)
fix pc27 crash
author
minima
<minima>
Mon, 5 Jul 2004 08:33:11 +0000
(08:33 +0000)
committer
minima
<minima>
Mon, 5 Jul 2004 08:33:11 +0000
(08:33 +0000)
Changes
patch
|
blob
|
history
perl/DXProt.pm
patch
|
blob
|
history
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
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]));
# do some de-duping
my $d = cltounix($_[1], sprintf("%02d18Z", $_[2]));