From 33ce448e18736331dbbc74365ea2b73a89f7fb1e Mon Sep 17 00:00:00 2001 From: Mort Yao Date: Fri, 3 Nov 2023 05:04:06 +0100 Subject: [PATCH] Main: allow only lowercase letters in language codes (fix #503) --- include/Main.awk | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/include/Main.awk b/include/Main.awk index 69a06139..d66add4c 100644 --- a/include/Main.awk +++ b/include/Main.awk @@ -755,7 +755,7 @@ BEGIN { # Shortcut format # 'CODE:CODE+...' or 'CODE=CODE+...' - match(ARGV[pos], /^[{(\[]?((@?[[:alpha:]][[:alpha:]][[:alpha:]]?(-[[:alpha:]][[:alpha:]][[:alpha:]]?[[:alpha:]]?)?\+)*(@?[[:alpha:]][[:alpha:]][[:alpha:]]?(-[[:alpha:]][[:alpha:]][[:alpha:]]?[[:alpha:]]?)?)?)?(:|=)((@?[[:alpha:]][[:alpha:]][[:alpha:]]?(-[[:alpha:]][[:alpha:]][[:alpha:]]?[[:alpha:]]?)?\+)*(@?[[:alpha:]][[:alpha:]][[:alpha:]]?(-[[:alpha:]][[:alpha:]][[:alpha:]]?[[:alpha:]]?)?)?)[})\]]?$/, group) + match(ARGV[pos], /^[{(\[]?((@?[a-z][a-z][a-z]?(-[[:alpha:]][[:alpha:]][[:alpha:]]?[[:alpha:]]?)?\+)*(@?[a-z][a-z][a-z]?(-[[:alpha:]][[:alpha:]][[:alpha:]]?[[:alpha:]]?)?)?)?(:|=)((@?[a-z][a-z][a-z]?(-[[:alpha:]][[:alpha:]][[:alpha:]]?[[:alpha:]]?)?\+)*(@?[a-z][a-z][a-z]?(-[[:alpha:]][[:alpha:]][[:alpha:]]?[[:alpha:]]?)?)?)[})\]]?$/, group) if (RSTART) { if (group[1]) { split(group[1], Option["sls"], "+")