texlive[45353] Build/source/texk/kpathsea/tex-file.c: kpathsea: fix

[commits+kakuto at tug.org]

Revision: 45353
          http://tug.org/svn/texlive?view=revision&revision=45353
Author:   kakuto
Date:     2017-09-20 12:22:59 +0200 (Wed, 20 Sep 2017)
Log Message:
-----------
kpathsea: fix to return actual file names (W32 only).

Modified Paths:
--------------
    trunk/Build/source/texk/kpathsea/tex-file.c

Modified: trunk/Build/source/texk/kpathsea/tex-file.c
===================================================================
--- trunk/Build/source/texk/kpathsea/tex-file.c	2017-09-20 06:58:43 UTC (rev 45352)
+++ trunk/Build/source/texk/kpathsea/tex-file.c	2017-09-20 10:22:59 UTC (rev 45353)
@@ -1013,6 +1013,7 @@
 {
 #if defined(_WIN32) && !defined(__MINGW32__)
   char tmpbuffer[512];
+  char tmpbuffer2[512];
 #endif
   string *target, name;
   const_string *ext;
@@ -1140,12 +1141,14 @@
   if (ret && *ret) {
     if (all) {
       for (count = 0; ret[count] != NULL; count++) {
-        if (kpathsea_getlongpath (kpse, tmpbuffer, ret[count], 500) &&
+        strcpy (tmpbuffer2, ret[count]);
+        if (kpathsea_getlongpath (kpse, tmpbuffer, tmpbuffer2, 500) &&
             strlen (tmpbuffer) == strlen (ret[count]))
           strcpy (ret[count], tmpbuffer);
       }
     } else {
-      if (kpathsea_getlongpath (kpse, tmpbuffer, *ret, 500) &&
+      strcpy (tmpbuffer2, *ret);
+      if (kpathsea_getlongpath (kpse, tmpbuffer, tmpbuffer2, 500) &&
           strlen (tmpbuffer) == strlen (*ret))
         strcpy (*ret, tmpbuffer);
     }