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

---
 ChangeLog       |  5 +++++
 Doc/Makefile.in |  2 +-
 Util/helpfiles  | 34 +---------------------------------
 3 files changed, 7 insertions(+), 34 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index eba6cd6ff..87b00c13f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2013-11-15  Barton E. Schaefer  <schaefer@zsh.org>
+
+	* Martin Vaeth: 31988: Doc/Makefile.in, Util/helpfiles: remove
+	LC_CTYPE heuristics, assure clean environment, force LANG=C
+
 2013-11-14  Peter Stephenson  <p.stephenson@samsung.com>
 
 	* Jun T.: 31984: Completion/Unix/Command/_df: new completion.
diff --git a/Doc/Makefile.in b/Doc/Makefile.in
index 0ca13fddd..51b5c5ced 100644
--- a/Doc/Makefile.in
+++ b/Doc/Makefile.in
@@ -188,7 +188,7 @@ man: $(MAN)
 runhelp: man
 	test x"$(runhelpdir)" = x"" || { \
 	    test -r $(sdir)/help.txt && test -r $(sdir)/help/zmodload; \
-	} || perl $(sdir_top)/Util/helpfiles $(lc_ctype) -- \
+	} || perl $(sdir_top)/Util/helpfiles \
 	    $(sdir)/zshbuiltins.1 $(sdir)/help $(sdir)/help.txt \
 	    || { rm -f $(sdir)/help.txt $(sdir)/help/zmodload; false; }
 .PHONY: runhelp
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