summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLTREE.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-06-18 18:18:24 +0000
committerKarl Berry <karl@freefriends.org>2008-06-18 18:18:24 +0000
commite8ccaaecd7e62d45f3004cb2313ea8ebbc6e7ed5 (patch)
treeaa1190224fa4ff83aab7a4dbb7a768d008835850 /Master/tlpkg/TeXLive/TLTREE.pm
parent870d1b5f45093dcd0b3ebc132c4dc40071c6e95c (diff)
add .cmd to w32 binext list
git-svn-id: svn://tug.org/texlive/trunk@8839 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLTREE.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLTREE.pm9
1 files changed, 5 insertions, 4 deletions
diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm
index d8107c1a5a8..286518d44ee 100644
--- a/Master/tlpkg/TeXLive/TLTREE.pm
+++ b/Master/tlpkg/TeXLive/TLTREE.pm
@@ -1,6 +1,6 @@
# $Id$
# TeXLive::TLTREE.pm - helper module to work with the tree of all files
-# Copyright 2007 Norbert Preining
+# Copyright 2007, 2008 Norbert Preining
#
# This file is licensed under the GNU General Public License version 2
# or any later version.
@@ -260,10 +260,11 @@ 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
+ # for arch=win32 under bin we want to automatch more extensions.
foreach my $f (@candfiles) {
- ddebug("matching $f in $dirpart via glob $globline.{bat/exe/texlua}\n");
- if ($f =~ /^$basepart\.(bat|exe|dll|texlua)$/) {
+ my $w32_binext = "bat|cmd|exe|dll|texlua";
+ ddebug("matching $f in $dirpart via glob $globline.($w32_binext)\n");
+ if ($f =~ /^$basepart\.($w32_binext)$/) {
ddebug("hit: globline=$globline, $dirpart/$f\n");
if ("$dirpart" eq ".") {
push @returnfiles, "$f";