From: Jim Meyering <meyering@redhat.com>
Date: Mon, 5 May 2008 22:35:28 +0000 (+0200)
Subject: help2man: fix perl 5.10 problem properly
X-Git-Tag: v6.12~70
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2224ef83fe7c82b2643a62bc7f98a2f589660ce8;p=thirdparty%2Fcoreutils.git

help2man: fix perl 5.10 problem properly

* 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.
---

diff --git a/man/help2man b/man/help2man
index 652fe9c3de..f0007358fb 100755
--- a/man/help2man
+++ b/man/help2man
@@ -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;
     };