diff options
author | Karl Berry <karl@freefriends.org> | 2019-12-23 20:32:38 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2019-12-23 20:32:38 +0000 |
commit | c3e39e899206e8fa4dc6636f5e90c1f568634428 (patch) | |
tree | abb9769b5ff0aa792ba6f85e5cab0a2e9b2f02f3 /Master/tlpkg/TeXLive/TLUtils.pm | |
parent | 8e0008903f054fd90b7f44ee8aaeb6b4dc6644a7 (diff) |
allow global_tlpvars to be set in autopatterns and used across other packages; define globals for common dependencies; doc updates
git-svn-id: svn://tug.org/texlive/trunk@53216 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 28 |
1 files changed, 16 insertions, 12 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 62c0c34b3b8..1e250cac034 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -1335,21 +1335,25 @@ sub collapse_dirs { =item C<removed_dirs(@files)> -returns all the directories from which all content will be removed +Returns all the directories from which all content will be removed. +Here is the idea: + +=over 4 + +=item create a hashes by_dir listing all files that should be removed + by directory, i.e., key = dir, value is list of files + +=item for each of the dirs (keys of by_dir and ordered deepest first) + check that all actually contained files are removed + and all the contained dirs are in the removal list. If this is the + case put that directory into the removal list + +=item return this removal list + +=back =cut -# return all the directories from which all content will be removed -# -# idea: -# - create a hashes by_dir listing all files that should be removed -# by directory, i.e., key = dir, value is list of files -# - for each of the dirs (keys of by_dir and ordered deepest first) -# check that all actually contained files are removed -# and all the contained dirs are in the removal list. If this is the -# case put that directory into the removal list -# - return this removal list -# sub removed_dirs { my (@files) = @_; my %removed_dirs; |