Be pickier about $WarningLevel. Make sure it matches the Perl regex: ^\d\d\.\d\d\.\d\d$

This commit is contained in:
Dianne Skoll
2025-09-27 09:38:00 -04:00
parent be04097fbc
commit 5610590fa8
4 changed files with 41 additions and 9 deletions

View File

@@ -39905,6 +39905,12 @@ BANNER %
SET $AddBlankLines 0
REM Monday ADDOMIT MSG woohoo!
-stdin-(3): Warning: Consider using SCANFROM with recurring ADDOMIT
set $WarningLevel "06.01.02"
SET $WarningLevel "06.01.02"
REM Tuesday ADDOMIT MSG Cabbage.
SET $WarningLevel "cabbage"
-stdin-(6): Ill-formed number
SET $WarningLevel today()
-stdin-(7): Type mismatch
SET $WarningLevel "3.1.4"
-stdin-(8): Ill-formed number