texlive[62512] Build/source/texk/web2c/lib/openclose.c: fix a bug in

[commits+kakuto at tug.org]

Revision: 62512
          http://tug.org/svn/texlive?view=revision&revision=62512
Author:   kakuto
Date:     2022-03-08 06:12:25 +0100 (Tue, 08 Mar 2022)
Log Message:
-----------
fix a bug in recorder (w32 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	2022-03-08 02:29:21 UTC (rev 62511)
+++ trunk/Build/source/texk/web2c/lib/openclose.c	2022-03-08 05:12:25 UTC (rev 62512)
@@ -114,6 +114,19 @@
     recorder_file = xfopen(recorder_name, FOPEN_W_MODE);
     
     cwd = xgetcwd();
+#if defined(_WIN32)
+    {
+      wchar_t *wpwd;
+      if (file_system_codepage != 0 &&
+          file_system_codepage != win32_codepage) {
+        wpwd = get_wstring_from_mbstring(win32_codepage, cwd, wpwd=NULL);
+        free (cwd);
+        cwd = get_mbstring_from_wstring(file_system_codepage, wpwd, cwd=NULL);
+        free (wpwd);
+      }
+    }
+#endif /* _WIN32 */
+
     fprintf(recorder_file, "PWD %s\n", cwd);
     free(cwd);
 }