Francois Gouget : testbot/SetWinLocale: Windows omits the country for some locales.

[Alexandre Julliard]

Module: tools
Branch: master
Commit: b2f1c4ab239a65a1c845270d64662ce0041563c4
URL:    https://source.winehq.org/git/tools.git/?a=commit;h=b2f1c4ab239a65a1c845270d...

Author: Francois Gouget 
Date:   Tue Jan 11 19:21:07 2022 +0100

testbot/SetWinLocale: Windows omits the country for some locales.

For instance one finds the hi-IN information in the "User Profile\hi"
subkey.

Signed-off-by: Francois Gouget 
Signed-off-by: Alexandre Julliard

---

testbot/bin/SetWinLocale | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/testbot/bin/SetWinLocale b/testbot/bin/SetWinLocale
index b2da673..a6e95a2 100755
--- a/testbot/bin/SetWinLocale
+++ b/testbot/bin/SetWinLocale
@@ -663,6 +663,12 @@ sub GetWinKeyboardIds($)
   # Look for that locale's keyboard id.
   # Its first component is the locale's LCID.
   my $Values = RegGetValues("$HKCU_USER_PROFILE\$Locale", "*:*");
+  if (!%$Values)
+  {
+    my $Lang = $Locale;
+    $Lang =~ s/-.*$//;
+    $Values = RegGetValues("$HKCU_USER_PROFILE\$Lang", "*:*");
+  }
   foreach my $VName (keys %$Values)
   {
     next if ($VName !~ /^[0-9A-F]{4}:/);