projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added cty-1603 and changes to wpxloc.raw from AD1C and WB8ZRL.
[spider.git]
/
cmd
/
set
/
hops.pl
diff --git
a/cmd/set/hops.pl
b/cmd/set/hops.pl
index 43b4594c1dbe1a3120e821f03b1f8a97df944120..c458b57827cfcb7ffab72c2974a556210e62765f 100644
(file)
--- a/
cmd/set/hops.pl
+++ b/
cmd/set/hops.pl
@@
-21,7
+21,7
@@
if (is_callsign(uc $f[0])) {
my $sort = lc shift @f if $f[0] =~ /^ann|spots|wwv|wcy|route$/i;
my $hops = shift @f if $f[0] =~ /^\d+$/;
my $sort = lc shift @f if $f[0] =~ /^ann|spots|wwv|wcy|route$/i;
my $hops = shift @f if $f[0] =~ /^\d+$/;
-return (0, $self->msg('sethop1')) unless $call && $sort && $hops;
+return (0, $self->msg('sethop1')) unless $call && $sort &&
defined
$hops;
my $ref = Filter::read_in($sort, $call, 0);
$ref = Filter->new($sort, $call, 0) if !$ref || $ref->isa('Filter::Old');
my $ref = Filter::read_in($sort, $call, 0);
$ref = Filter->new($sort, $call, 0) if !$ref || $ref->isa('Filter::Old');