From e7fa65ffae499441bae9e967083c26e342e0fac7 Mon Sep 17 00:00:00 2001
From: "Barton E. Schaefer" <schaefer@zsh.org>
Date: Fri, 15 Nov 2013 21:48:45 -0800
Subject: Martin Vaeth: 31988 (plus missing semicolon): remove LC_CTYPE
 heuristics, assure clean environment, force LANG=C

---
 Util/helpfiles | 34 +---------------------------------
 1 file changed, 1 insertion(+), 33 deletions(-)

(limited to 'Util')

diff --git a/Util/helpfiles b/Util/helpfiles
index 3e3125e14..221f673f6 100755
--- a/Util/helpfiles
+++ b/Util/helpfiles
@@ -52,38 +52,6 @@ sub Die {
     exit(1);
 }
 
-&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);
@@ -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);
-- 
cgit 1.4.1