[7833] MiscXS.pm don't call locale command

[gavinsmith0123]

Revision: 7833
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=7833
Author:   gavin
Date:     2017-06-18 11:27:44 -0400 (Sun, 18 Jun 2017)
Log Message:
-----------
MiscXS.pm don't call locale command

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/tp/Texinfo/MiscXS.pm

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2017-06-18 13:06:10 UTC (rev 7832)
+++ trunk/ChangeLog     2017-06-18 15:27:44 UTC (rev 7833)
@@ -1,5 +1,12 @@
 2017-06-18  Gavin Smith  <address@hidden>
 
+       * tp/Texinfo/MiscXS.pm: Remove check for UTF-8 locale, as
+       "locale -a" can be slow to run (about 4.5 seconds on my computer 
+       after disk caches are cleared), and tp/Texinfo/MiscXS/misc.c may
+       not need it.  (Reverses change on 2017-03-12.)
+
+2017-06-18  Gavin Smith  <address@hidden>
+
        * pretest 6.3.92
        * configure.ac: Update version.
 

Modified: trunk/tp/Texinfo/MiscXS.pm
===================================================================
--- trunk/tp/Texinfo/MiscXS.pm  2017-06-18 13:06:10 UTC (rev 7832)
+++ trunk/tp/Texinfo/MiscXS.pm  2017-06-18 15:27:44 UTC (rev 7833)
@@ -1,4 +1,4 @@
-# Copyright 2016 Free Software Foundation, Inc.
+# Copyright 2016, 2017 Free Software Foundation, Inc.
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -27,21 +27,9 @@
 use Texinfo::XSLoader;
 
 BEGIN {
-  our $xsmodule = "Texinfo::MiscXSXS";
- # Check for a UTF-8 locale.  Skip the check if the 'locale' command doesn't
- # work.
-  our $a;
-  if ($^O ne 'MSWin32') {
-    $a = `locale -a 2>/dev/null`;
-  }
-  if ($a and $a !~ /UTF-8/ and $a !~ /utf8/) {
-    # Do not use XS module
-    $xsmodule = undef;
-  }
-
   Texinfo::XSLoader::init (
     "Texinfo::MiscXS",
-    $xsmodule,
+    "Texinfo::MiscXSXS",
     "Texinfo::MiscXS",
     "MiscXS",
     0,