diff options
author | Norbert Preining <preining@logic.at> | 2008-02-08 08:33:50 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-02-08 08:33:50 +0000 |
commit | 4fbb12efeffdffdf5a17b95f132ed4cc06300586 (patch) | |
tree | a8a6d0719cbf2fc547fd6348cc2636baaa80063e | |
parent | be512facf9adc36690d027b9d19ce3a2d0d53fe5 (diff) |
match also .texlua with binfiles on win32
git-svn-id: svn://tug.org/texlive/trunk@6529 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r-- | Master/tlpkg/TeXLive/TLPSRC.pm | 4 | ||||
-rw-r--r-- | Master/tlpkg/TeXLive/TLTREE.pm | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/Master/tlpkg/TeXLive/TLPSRC.pm b/Master/tlpkg/TeXLive/TLPSRC.pm index 505d90196bd..432119e044e 100644 --- a/Master/tlpkg/TeXLive/TLPSRC.pm +++ b/Master/tlpkg/TeXLive/TLPSRC.pm @@ -633,11 +633,11 @@ language are allowed: In case the string C<${>I<ARCH>} occurs in one C<binpattern> it is automatically expanded to the respective architecture. -=item C<bat/exe/dll> for win32 +=item C<bat/exe/dll/texlua> for win32 For C<binpattern>s of the form C<f bin/win32/foobar> (i.e., also for a binpattern of the form C<f bin/${ARCH}/foobar>) files C<foobar.bat>, -C<foobar.dll>, and C<foobar.exe> are also matched. +C<foobar.dll>, C<foobar.exe>, and C<foobar.texlua> are also matched. The above two properties allows to capture the binaries for all architectures in one binpattern diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm index 7b9c70d7abc..068eaa804c6 100644 --- a/Master/tlpkg/TeXLive/TLTREE.pm +++ b/Master/tlpkg/TeXLive/TLTREE.pm @@ -258,8 +258,8 @@ sub _get_files_matching_glob_pattern { if ($dirpart =~ m@^bin/win32@) { # for arch=win32 under bin we also want to match .dll, .bat, .exe files foreach my $f (@candfiles) { - tllog($::LOG_DDDEBUG, "matching $f in $dirpart via glob $globline.{bat/exe}\n"); - if ($f =~ /^$basepart\.(bat|exe|dll)$/) { + tllog($::LOG_DDDEBUG, "matching $f in $dirpart via glob $globline.{bat/exe/texlua}\n"); + if ($f =~ /^$basepart\.(bat|exe|dll|texlua)$/) { tllog($::LOG_DDDEBUG, "hit: globline=$globline, $dirpart/$f\n"); if ("$dirpart" eq ".") { push @returnfiles, "$f"; |