projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
fc093a9
)
more check stuff
author
minima
<minima>
Sun, 20 Aug 2000 20:58:38 +0000
(20:58 +0000)
committer
minima
<minima>
Sun, 20 Aug 2000 20:58:38 +0000
(20:58 +0000)
perl/DXProt.pm
patch
|
blob
|
history
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index fb6ed2090c2c4b0dc2a21ddb4182efc676b3b612..f8f8ecf77b4b0d7a3af753122b2d5adc7c245cc8 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-53,7
+53,7
@@
$baddxfn = "$main::data/baddx.pl";
(
[ qw(c c m p bc c) ], # pc10
[ qw(f m d t m c c h) ], # pc11
(
[ qw(c c m p bc c) ], # pc10
[ qw(f m d t m c c h) ], # pc11
- [ qw(c bc m p
c p h) ],
# pc12
+ [ qw(c bc m p
bc p h) ],
# pc12
[ qw(c h) ], #
[ qw(c h) ], #
[ qw(c m h) ], #
[ qw(c h) ], #
[ qw(c h) ], #
[ qw(c m h) ], #
@@
-143,6
+143,7
@@
sub check
shift; # not interested in the first field
for ($i = 0; $i < @_; $i++) {
my ($blank, $act) = $$ref[$i] =~ /^(b?)(\w)$/;
shift; # not interested in the first field
for ($i = 0; $i < @_; $i++) {
my ($blank, $act) = $$ref[$i] =~ /^(b?)(\w)$/;
+ return 0 unless $act;
next if $blank && $_[$i] =~ /^[ \*]$/;
if ($act eq 'c') {
return $i+1 unless is_callsign($_[$i]);
next if $blank && $_[$i] =~ /^[ \*]$/;
if ($act eq 'c') {
return $i+1 unless is_callsign($_[$i]);