X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fsatellite.pl;h=bede7a89dfd75859adfdf386f385332251f49e32;hb=refs%2Fheads%2Fnewusers;hp=45e765f2928d8d5f6a9ba6fbb299046b7b7943fa;hpb=d6ff8d0990c60b84a4da6d012f7fc043121e43e8;p=spider.git

diff --git a/cmd/show/satellite.pl b/cmd/show/satellite.pl
index 45e765f2..bede7a89 100644
--- a/cmd/show/satellite.pl
+++ b/cmd/show/satellite.pl
@@ -4,7 +4,7 @@
 #
 # copyright (c) 1999 Steve Franke K9AN
 #
-# $Id$
+#
 # 
 # 2001/12/16 added age of keps in the sh/sat output list.
 #   Note - there is the potential for problems when satellite name
@@ -16,9 +16,9 @@ my ($self, $line) = @_;
 my @out;
 
 my @f = split /\s+/, $line;
-my $satname = uc shift @f;
-my $numhours = shift @f;	# the number of hours ahead to print
-my $step = shift @f;		# tracking table resolution in minutes
+my $satname = uc shift @f if @f;
+my $numhours = shift @f if @f;	# the number of hours ahead to print
+my $step = shift @f if @f;		# tracking table resolution in minutes
 
 # default hours and step size
 $numhours = 3 unless $numhours && $numhours =~ /^\d+$/;