summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLTREE.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-01-06 17:04:30 +0000
committerNorbert Preining <preining@logic.at>2008-01-06 17:04:30 +0000
commit0f071fd7d532f3d8e0c37e68719ce4be7d264cbf (patch)
tree3c21c9b2f0414cbd992334e8cf46058310a9d77f /Master/tlpkg/TeXLive/TLTREE.pm
parent819c5a72a84a5aa7b326d90da50d08e3c4adb926 (diff)
deal with files in the root of Master
git-svn-id: svn://tug.org/texlive/trunk@6057 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLTREE.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLTREE.pm12
1 files changed, 10 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm
index 8665cc8dd46..8b2e1a02d49 100644
--- a/Master/tlpkg/TeXLive/TLTREE.pm
+++ b/Master/tlpkg/TeXLive/TLTREE.pm
@@ -241,7 +241,11 @@ sub _get_files_matching_glob_pattern {
&TeXLive::TLUtils::debug("matching $f in $dirpart via glob $globline");
if ($f =~ /^$basepart$/) {
&TeXLive::TLUtils::debug("hit: globline=$globline, $dirpart/$f");
- push @returnfiles, "$dirpart/$f";
+ if ("$dirpart" eq ".") {
+ push @returnfiles, "$f";
+ } else {
+ push @returnfiles, "$dirpart/$f";
+ }
}
}
if ($dirpart =~ m@^bin/win32@) {
@@ -250,7 +254,11 @@ sub _get_files_matching_glob_pattern {
&TeXLive::TLUtils::debug("matching $f in $dirpart via glob $globline.{bat/exe}");
if ($f =~ /^$basepart\.(bat|exe|dll)$/) {
&TeXLive::TLUtils::debug("hit: globline=$globline, $dirpart/$f");
- push @returnfiles, "$dirpart/$f";
+ if ("$dirpart" eq ".") {
+ push @returnfiles, "$f";
+ } else {
+ push @returnfiles, "$dirpart/$f";
+ }
}
}
}