X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fset%2Fhops.pl;h=a4478f2b3e9412b2bf51624305ab9bcf61dde13b;hb=refs%2Fheads%2Fstaging;hp=5f4edbdbee332f289013a69517c5e2cd13a979cf;hpb=ebbe325acb6e18437ae01cb1b32e615c83e24641;p=spider.git

diff --git a/cmd/set/hops.pl b/cmd/set/hops.pl
index 5f4edbdb..a4478f2b 100644
--- a/cmd/set/hops.pl
+++ b/cmd/set/hops.pl
@@ -3,7 +3,7 @@
 #
 # Copyright (c) 2000 Dirk Koopman G1TLH
 #
-# $Id$
+#
 #
 my ($self, $line) = @_;
 return (0, $self->msg('e5')) if $self->priv < 8;
@@ -18,10 +18,10 @@ if (is_callsign(uc $f[0])) {
 	$call = shift @f;
 }
 
-my $sort = lc shift @f if $f[0] =~ /^ann|spots|wwv|wcy$/i;
+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');