diff options
author | Norbert Preining <preining@logic.at> | 2009-02-09 07:42:52 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-02-09 07:42:52 +0000 |
commit | be8be324bb2b51a0f44d297490ea0ab47ad0381d (patch) | |
tree | 476bb1e543e34b5e65432359ecba293de73cb920 /Master/texmf | |
parent | cae7f6f90f13cfed35ba468df52ce7aed655ad71 (diff) |
make docfile data accessible via the tlmgr show <pkg> --list
git-svn-id: svn://tug.org/texlive/trunk@12124 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf')
-rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl index 149a02a05e6..7affa313114 100755 --- a/Master/texmf/scripts/texlive/tlmgr.pl +++ b/Master/texmf/scripts/texlive/tlmgr.pl @@ -839,7 +839,16 @@ sub action_show { } if ($foo->docfiles) { print "doc files:\n"; - for my $f (sort $foo->docfiles) { print " $f\n"; } + for my $f (sort $foo->docfiles) { + print " $f"; + my $dfd = $foo->docfiledata; + if (defined($dfd->{$f})) { + for my $k (keys %{$dfd->{$f}}) { + print " $k=\"", $dfd->{$f}->{$k}, '"'; + } + } + print "\n"; + } } # in case we have them if ($foo->allbinfiles) { |