Bug 23354: (follow-up) Update for bugs 23049 and 23805

[koha-ffzg.git] / Koha / I18N.pm

diff --git a/Koha/I18N.pm b/Koha/I18N.pm
index 44c4713..7206223 100644 (file)
--- a/Koha/I18N.pm
+++ b/Koha/I18N.pm
@@ -24,7 +24,8 @@ use C4::Languages;
 use C4::Context;
 
 use Encode;
-use Locale::Messages qw(:locale_h nl_putenv setlocale LC_MESSAGES);
+use Locale::Messages qw(:locale_h LC_MESSAGES);
+use POSIX qw( setlocale );
 use Koha::Cache::Memory::Lite;
 
 use parent 'Exporter';
@@ -54,8 +55,8 @@ sub init {
         if (@system_locales) {
             # LANG needs to be set to a valid locale,
             # otherwise LANGUAGE is ignored
-            nl_putenv('LANG=' . $system_locales[0]);
-            setlocale(LC_MESSAGES, '');
+            $ENV{LANG} = $system_locales[0];
+            POSIX::setlocale(LC_MESSAGES, '');
 
             my $langtag = C4::Languages::getlanguage;
             my @subtags = split /-/, $langtag;
@@ -68,8 +69,8 @@ sub init {
                 $locale .= '_' . $region;
             }
 
-            nl_putenv("LANGUAGE=$locale");
-            nl_putenv('OUTPUT_CHARSET=UTF-8');
+            $ENV{LANGUAGE} = $locale;
+            $ENV{OUTPUT_CHARSET} = 'UTF-8';
 
             my $directory = _base_directory();
             textdomain($textdomain);