19
20
# language, country and extra information (eg '@euro')
20
21
my ($langcode) = $lang =~ m/^(..)_(..)(@.+)?/;
24
23
# Print the supported locale entries.
25
24
if ("supported" eq $lang) {
29
UpdateOrAppendVariable($gdmconfig, "LANG", $langcode, "=");