diff options
author | Norbert Preining <preining@logic.at> | 2008-01-06 17:04:30 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-01-06 17:04:30 +0000 |
commit | 0f071fd7d532f3d8e0c37e68719ce4be7d264cbf (patch) | |
tree | 3c21c9b2f0414cbd992334e8cf46058310a9d77f /Master/tlpkg | |
parent | 819c5a72a84a5aa7b326d90da50d08e3c4adb926 (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')
-rw-r--r-- | Master/tlpkg/TeXLive/TLTREE.pm | 12 |
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"; + } } } } |