X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fwwv.pl;h=98930c895a9063dfd9608174856d528dfe109a03;hb=eac4538f1f78b3d014539dc548fc6322e8337429;hp=3b0397fce0526569d294eedbb92d1e11c8c8e7f2;hpb=56c9ecfcd367bd05b9e6a5a6a8fa94e571dda9af;p=spider.git

diff --git a/cmd/wwv.pl b/cmd/wwv.pl
index 3b0397fc..98930c89 100644
--- a/cmd/wwv.pl
+++ b/cmd/wwv.pl
@@ -21,7 +21,7 @@
 #
 # Copyright (c) 2001 Dirk Koopman G1TLH
 #
-# $Id$
+#
 #
 my ($self, $line) = @_;
 my $call = $self->call;
@@ -36,9 +36,10 @@ my @out;
 my $hour = (gmtime $main::systime)[2];
 my $d = int ($main::systime / 3600) * 3600 + 18 * 60; 
 
+$line = unpad($line);
+
 my @l = split /\s*,\s*/, $line;
 my $forecast = pop @l;
-$forecast = unpad($forecast);
 
 # make a hash out of the args
 my %args = map {split /\s*=\s*/, lc $_} @l;