texlive[70364] Build/source/texk/texlive/windows_wrapper: update

[commits+kakuto at tug.org]

Revision: 70364
          https://tug.org/svn/texlive?view=revision&revision=70364
Author:   kakuto
Date:     2024-03-03 01:47:41 +0100 (Sun, 03 Mar 2024)
Log Message:
-----------
update runscript_dll.c and runscript.dll

Modified Paths:
--------------
    trunk/Build/source/texk/texlive/windows_wrapper/runscript.dll
    trunk/Build/source/texk/texlive/windows_wrapper/runscript_dll.c

Modified: trunk/Build/source/texk/texlive/windows_wrapper/runscript.dll
===================================================================
(Binary files differ)

Modified: trunk/Build/source/texk/texlive/windows_wrapper/runscript_dll.c
===================================================================
--- trunk/Build/source/texk/texlive/windows_wrapper/runscript_dll.c	2024-03-03 00:45:04 UTC (rev 70363)
+++ trunk/Build/source/texk/texlive/windows_wrapper/runscript_dll.c	2024-03-03 00:47:41 UTC (rev 70364)
@@ -39,7 +39,15 @@
   char *fp;
 
   if (argc) {
-    k = SearchPath(NULL, argv[0], ".exe", 260, infile, &fp);
+    char *pp;
+    char ppp[260];
+    strcpy(ppp, argv[0]);
+    pp = strrchr(ppp, '.');
+    if (!pp || stricmp(pp, ".exe")) {
+      strcat(ppp, ".exe");
+    }
+    argv[0] = ppp;
+    k = SearchPath(NULL, argv[0], NULL, 260, infile, &fp);
     if (!k)
       DIE("cannot find %s\n", argv[0]);
     k = GetLongPathNameA(infile, buff, 260);