texlive[43709] Build/source/texk/web2c/luatexdir/lua/luainit.w: sync

[commits+lscarso at tug.org]

Revision: 43709
          http://tug.org/svn/texlive?view=revision&revision=43709
Author:   lscarso
Date:     2017-04-06 17:02:01 +0200 (Thu, 06 Apr 2017)
Log Message:
-----------
sync with luatex 1.0.4

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/luatexdir/lua/luainit.w

Modified: trunk/Build/source/texk/web2c/luatexdir/lua/luainit.w
===================================================================
--- trunk/Build/source/texk/web2c/luatexdir/lua/luainit.w	2017-04-06 12:36:09 UTC (rev 43708)
+++ trunk/Build/source/texk/web2c/luatexdir/lua/luainit.w	2017-04-06 15:02:01 UTC (rev 43709)
@@ -933,7 +933,7 @@
     /* Get the current locale (it should be C )          */
     /* and save LC_CTYPE, LC_COLLATE and LC_NUMERIC.     */
     /* Later luainterpreter() will consciously use them. */
-    old_locale = setlocale (LC_ALL, NULL);
+    old_locale = xstrdup(setlocale (LC_ALL, NULL));
     lc_ctype = NULL;
     lc_collate = NULL;
     lc_numeric = NULL;
@@ -965,6 +965,7 @@
 	  fprintf(stderr,"Unable to restore original locale:exit now.\n");
 	  exit(1);
 	}
+        xfree(old_locale);
     } else {
        fprintf(stderr,"Unable to store environment locale.\n");
     }