diff options
Diffstat (limited to 'Util/helpfiles')
-rwxr-xr-x | Util/helpfiles | 34 |
1 files changed, 1 insertions, 33 deletions
diff --git a/Util/helpfiles b/Util/helpfiles index 3e3125e14..221f673f6 100755 --- a/Util/helpfiles +++ b/Util/helpfiles @@ -53,38 +53,6 @@ sub Die { } &Usage() unless(@ARGV); -delete($ENV{'LC_ALL'}); -$ENV{'LANG'} = 'C'; -if($ARGV[0] =~ /-f(.*)/) { - $lc_ctype = $1; - shift(@ARGV); - &Usage() unless(@ARGV); - if($lc_ctype eq '') { - $lc_ctype = shift(@ARGV); - &Usage() unless(@ARGV); - } -} else { - open(LOCALE, '-|', 'locale', '-a') || &Die('cannot execute locale -a'); - $lc_ctype = ''; - $choice = 0; - while(<LOCALE>) { - if(/en.*utf-?8/i) { - $lc_ctype = $_; - last; - } elsif(/utf-?8/i) { - $lc_ctype = $_; - $choice = 2; - } elsif(($choice < 1) && (/(en)|\./i)) { - $lc_ctype = $_; - $choice = 1; - } - } - close(LOCALE); -} -&Info("using LC_CTYPE=$lc_ctype"); -$ENV{'LC_CTYPE'} = $lc_ctype unless($lc_ctype eq ''); -shift(@ARGV) if($ARGV[0] eq '--'); -&Usage() unless(@ARGV); $manfile = shift(@ARGV); &Usage() unless(@ARGV); $destdir = shift(@ARGV); @@ -231,7 +199,7 @@ BUILTINS: while (<MANPAGE>) { select STDOUT; close OUT; -close MANPAGE; +close(MANPAGE) || &Die('piping from man ', $manfile, ' failed'); foreach $file (<*>) { open (IN, $file); |