From 7e52fbc3bb33cb82a7e31f0dfef7fb55e516177a Mon Sep 17 00:00:00 2001 From: minima Date: Tue, 18 Dec 2001 12:30:25 +0000 Subject: [PATCH] remove leading and trailing spaces --- cmd/wcy.pl | 1 + cmd/wwv.pl | 3 ++- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/cmd/wcy.pl b/cmd/wcy.pl index 4d0122b9..58b3c40f 100644 --- a/cmd/wcy.pl +++ b/cmd/wcy.pl @@ -35,6 +35,7 @@ my $hour = (gmtime $main::systime)[2]; my $d = int ($main::systime / 3600) * 3600 + 18 * 60; # make a hash out of the args +$line = unpad($line); my %args = map {split /\s*=\s*/} split /\s*,\s*/, lc $line; # check the ranges of each one diff --git a/cmd/wwv.pl b/cmd/wwv.pl index 3b0397fc..9ff5cb58 100644 --- a/cmd/wwv.pl +++ b/cmd/wwv.pl @@ -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; -- 2.43.0