From f960ad1a1cc5fdba40cfbc547dfce52496b271a8 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 30 Jun 2005 07:54:24 +0000 Subject: do not load bloat POSIX --- perl-install/common.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'perl-install/common.pm') diff --git a/perl-install/common.pm b/perl-install/common.pm index 8f3ad65c7..d05c1afd9 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -81,9 +81,8 @@ sub translate { sub set_l10n_sort() { my $collation_locale = $ENV{LC_ALL}; if (!$collation_locale) { - require POSIX; - $collation_locale = POSIX::setlocale(POSIX::LC_COLLATE()); - $collation_locale =~ /UTF-8/ or POSIX::setlocale(POSIX::LC_COLLATE(), "$collation_locale.UTF-8"); + $collation_locale = c::setlocale(c::LC_COLLATE()); + $collation_locale =~ /UTF-8/ or c::setlocale(c::LC_COLLATE(), "$collation_locale.UTF-8"); } } -- cgit v1.2.1