texlive[48059] Master/bin/win32/runscript.tlu: support scripts in

[commits+kakuto at tug.org]

Revision: 48059
          http://tug.org/svn/texlive?view=revision&revision=48059
Author:   kakuto
Date:     2018-06-20 05:55:23 +0200 (Wed, 20 Jun 2018)
Log Message:
-----------
support scripts in trees other than TEXMFDIST

Modified Paths:
--------------
    trunk/Master/bin/win32/runscript.tlu

Modified: trunk/Master/bin/win32/runscript.tlu
===================================================================
--- trunk/Master/bin/win32/runscript.tlu	2018-06-20 02:17:26 UTC (rev 48058)
+++ trunk/Master/bin/win32/runscript.tlu	2018-06-20 03:55:23 UTC (rev 48059)
@@ -267,6 +267,9 @@
     2018/04/06
         - introduce a new function is_64bit_windows_os() to
           check Windows OS.
+    2018/06/20
+        - support also scripts in trees other than TEXMFDIST:
+          https://tug.org/pipermail/tex-live/2018-June/041922.html
 ]]
 
 -- HELPER SUBROUTINES --
@@ -767,8 +770,14 @@
   os.setenv('TEXMF', TEXMFDIST)
   local extlist = '.tlu;.texlua;.pl;.lua;.rb;.py;.tcl;.jar;.vbs;.js;.bat;.cmd;\0'
   local progfullname = search_path(progname, BINDIR, '.tlu;.bat;.cmd') or
-                       assert(find_texmfscript(progname, extlist))
+                       find_texmfscript(progname, extlist)
   os.setenv('TEXMF', nil)
+  if progfullname == nil then
+-- scripts in $TEXMFLOCAL etc. can't be found without the following
+-- line !!
+    kpse.set_program_name('runscript')
+    progfullname = assert(find_texmfscript(progname, extlist))
+  end
   local ext = string.match(string.lower(progfullname), '%.[^\\/.]*$') or ''
   if (ext == '.lua') or (ext == '.tlu') or (ext == '.texlua') then -- lua script
     arg[0] = progfullname