summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/c/stuff.xs.pl2
-rw-r--r--perl-install/interactive/newt.pm2
-rw-r--r--perl-install/lang.pm2
-rw-r--r--perl-install/standalone.pm2
4 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/c/stuff.xs.pl b/perl-install/c/stuff.xs.pl
index 977894a57..15c39bf04 100644
--- a/perl-install/c/stuff.xs.pl
+++ b/perl-install/c/stuff.xs.pl
@@ -236,7 +236,7 @@ get_ext2_label(device_name)
RETVAL
void
-setlocale()
+init_setlocale()
CODE:
setlocale(LC_ALL, "");
setlocale(LC_NUMERIC, "C"); /* otherwise eval "1.5" returns 1 in fr_FR for example */
diff --git a/perl-install/interactive/newt.pm b/perl-install/interactive/newt.pm
index 8bc39b19f..af829b42b 100644
--- a/perl-install/interactive/newt.pm
+++ b/perl-install/interactive/newt.pm
@@ -21,7 +21,7 @@ sub new {
local $ENV{LC_CTYPE} = "en_US.UTF-8";
Newt::Init(1);
}
- c::setlocale();
+ c::init_setlocale();
} else {
Newt::Init(0);
}
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index ce56a60c1..a2b75b463 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -1249,7 +1249,7 @@ sub bindtextdomain() {
#- NB: not using $::isInstall to make it work more easily at install and standalone
my $localedir = "$ENV{SHARE_PATH}/locale" . ($::prefix ? "_special" : '');
- c::setlocale();
+ c::init_setlocale();
c::bind_textdomain_codeset('libDrakX', 'UTF-8');
$::need_utf8_i18n = 1;
c::bindtextdomain('libDrakX', $localedir);
diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm
index e0e0b056f..6ecb45b2e 100644
--- a/perl-install/standalone.pm
+++ b/perl-install/standalone.pm
@@ -15,7 +15,7 @@ $::isStandalone = 1;
$ENV{SHARE_PATH} ||= "/usr/share";
-c::setlocale();
+c::init_setlocale();
c::bindtextdomain('libDrakX', "/usr/share/locale");
$::license = N_("This program is free software; you can redistribute it and/or modify