#
# Set the environment LC_ALL variable to French,
# but import with another lang. Also use in classic mode.
#
$ENV
{LC_ALL} =
"de"
;
my
$l
= new Locales::Language;
$l
->getLocale,
" => "
,
$l
->code2language (
"en"
),
"\n"
;
$l
->setLocale (
"de"
);
$l
->getLocale,
" => "
,
$l
->code2language (
"en"
),
"\n"
;
$l
->setLocale (
"en"
);
$l
->getLocale,
" => "
,
$l
->code2language (
"en"
),
"\n"
;
$l
->setLocale (
"fr"
);
$l
->getLocale,
" => "
,
$l
->code2language (
"en"
),
"\n"
;
$l
->setLocale;
# no arg returns to the import setting
$l
->getLocale,
" => "
,
$l
->code2language (
"en"
),
"\n"
;