summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-03-17 17:17:31 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-03-17 17:17:31 +0000
commit24691abb43cd7d050f4f371fdeaeaca962aac1da (patch)
tree765e46e4e401c9e05ca8b06c92cd944a390bb222 /perl-install
parent27386d7f027488629d40c23492c734fbba727fa1 (diff)
downloaddrakx-backup-do-not-use-24691abb43cd7d050f4f371fdeaeaca962aac1da.tar
drakx-backup-do-not-use-24691abb43cd7d050f4f371fdeaeaca962aac1da.tar.gz
drakx-backup-do-not-use-24691abb43cd7d050f4f371fdeaeaca962aac1da.tar.bz2
drakx-backup-do-not-use-24691abb43cd7d050f4f371fdeaeaca962aac1da.tar.xz
drakx-backup-do-not-use-24691abb43cd7d050f4f371fdeaeaca962aac1da.zip
ensure this bloody stupid code doesn't break things when it is unused
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/common.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm
index 71ec6ba77..8c8fa4234 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -6,7 +6,6 @@ use diagnostics;
use strict;
use run_program;
use vars qw(@ISA @EXPORT $SECTORSIZE);
-use POSIX qw(setlocale LC_ALL LC_COLLATE);
@ISA = qw(Exporter);
# no need to export ``_''
@@ -89,8 +88,9 @@ sub untranslate {
sub set_l10n_sort() {
my $collation_locale = $ENV{LC_ALL};
if (!$collation_locale) {
- $collation_locale = setlocale(LC_COLLATE);
- $collation_locale =~ /UTF-8/ or setlocale(LC_COLLATE, "$collation_locale.UTF-8");
+ require POSIX;
+ $collation_locale = POSIX::setlocale(POSIX::LC_COLLATE());
+ $collation_locale =~ /UTF-8/ or POSIX::setlocale(POSIX::LC_COLLATE(), "$collation_locale.UTF-8");
}
}