diff options
author | Norbert Preining <norbert@preining.info> | 2019-12-25 03:00:52 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-12-25 03:00:52 +0000 |
commit | 3009cc3d943aa281945de7d2204ebbe359bd405f (patch) | |
tree | 10b930a9fb352601935aee9590fda5b6785f1658 /systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm | |
parent | c389b7448b0983c777962eb6889c11cc754b5b01 (diff) |
CTAN sync 201912250300
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm | 34 |
1 files changed, 20 insertions, 14 deletions
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm index b37232a524..9ca41db37b 100644 --- a/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm +++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm @@ -1,4 +1,4 @@ -# $Id: TLUtils.pm 53204 2019-12-21 23:18:19Z karl $ +# $Id: TLUtils.pm 53221 2019-12-24 00:15:50Z karl $ # TeXLive::TLUtils.pm - the inevitable utilities for TeX Live. # Copyright 2007-2019 Norbert Preining, Reinhard Kotucha # This file is licensed under the GNU General Public License version 2 @@ -6,7 +6,7 @@ package TeXLive::TLUtils; -my $svnrev = '$Revision: 53204 $'; +my $svnrev = '$Revision: 53221 $'; my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown"; sub module_revision { return $_modulerevision; } @@ -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; @@ -3290,6 +3294,8 @@ sub parse_AddFormat_line { Logging and debugging messages. +=over 4 + =item C<logit($out,$level,@rest)> Internal routine to write message to both C<$out> (references to |