texlive[47972] Build/source/texk/web2c/lib/openclose.c: pTeX: Avoid

[commits+takuji at tug.org]

Revision: 47972
          http://tug.org/svn/texlive?view=revision&revision=47972
Author:   takuji
Date:     2018-06-10 04:08:37 +0200 (Sun, 10 Jun 2018)
Log Message:
-----------
pTeX: Avoid momory crash (Unix-like platform only)

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/lib/openclose.c

Modified: trunk/Build/source/texk/web2c/lib/openclose.c
===================================================================
--- trunk/Build/source/texk/web2c/lib/openclose.c	2018-06-10 00:27:35 UTC (rev 47971)
+++ trunk/Build/source/texk/web2c/lib/openclose.c	2018-06-10 02:08:37 UTC (rev 47972)
@@ -324,7 +324,7 @@
 #if defined(PTEX) && !defined(WIN32)
     fname0 = ptenc_from_internal_enc_string_to_utf8(fname);
     if (fname0) {
-        free(fname);
+        if (fname != nameoffile + 1) free(fname);
         fname = fname0;
     }
 #endif