allow 0 for the number of hops (which deletes the hops)

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+$/;
 
-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');