X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=10ce5fa193043475802ed715c051e8d5c1b1fceb;hb=fb554d0fdb1d30120dbfff15514c51f683dc17a8;hp=b1ce88d6750634806eda9f336382cf221ec473be;hpb=1f9712e804601df2e26f70ef88410c94546f44af;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index b1ce88d6..10ce5fa1 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -385,7 +385,7 @@ sub normal
 				dbg('chan', "Dup WWV Spot ignored\n");
 				return;
 			}
-			if ($d > $main::systime + 900) {
+			if ($d > $main::systime + 900 || $field[2] < 0 || $field[2] > 23) {
 				dbg('chan', "WWV Date ($field[1] $field[2]) out of range");
 				return;
 			}