]> git.ipfire.org Git - thirdparty/coreutils.git/commitdiff
help2man: fix perl 5.10 problem properly
authorJim Meyering <meyering@redhat.com>
Mon, 5 May 2008 22:35:28 +0000 (00:35 +0200)
committerJim Meyering <meyering@redhat.com>
Mon, 5 May 2008 22:35:28 +0000 (00:35 +0200)
* man/help2man: Do pull LC_ALL via "use POSIX".
Instead, limit the importing of gettext-related symbols
to just those two we'll use: gettext and textdomain.

man/help2man

index 652fe9c3de9756bca79883b618624b039fe41295..f0007358fba4c095967c5e1cc64a134d8302bfc3 100755 (executable)
@@ -24,7 +24,7 @@ use 5.005;
 use strict;
 use Getopt::Long;
 use Text::Tabs qw(expand);
-use POSIX qw(strftime setlocale);
+use POSIX qw(strftime setlocale LC_ALL);
 use locale;
 
 my $this_program = 'help2man';
@@ -34,7 +34,7 @@ my $have_gettext;
 BEGIN {
     eval {
        require Locale::gettext;
-       Locale::gettext->import;
+       Locale::gettext->import (qw(gettext textdomain));
        $have_gettext = 1;
     };