diff options
author | Norbert Preining <preining@logic.at> | 2011-06-11 04:40:36 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2011-06-11 04:40:36 +0000 |
commit | e88b082e2bb09827621d62c47a6dcd784ecbffcd (patch) | |
tree | 8e5a506fae1b5c9c5496a5a34cec3055692750f9 /Master/texmf | |
parent | b260927f2e859e42eb951cded5b93d1c595ede83 (diff) |
dump-tlpdb: also dump the location
git-svn-id: svn://tug.org/texlive/trunk@22912 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf')
-rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl index 7f16e9dfb13..4784eea5358 100755 --- a/Master/texmf/scripts/texlive/tlmgr.pl +++ b/Master/texmf/scripts/texlive/tlmgr.pl @@ -1038,7 +1038,14 @@ sub action_path { # sub action_dumptlpdb { init_local_db(); + # set machine readable to 1 + my $savemr = $::machinereadable; + $::machinereadable = 1; if ($opts{"local"}) { + # since we want to be consistent we write out the location of + # the installation, too, in the format as it is done when + # dumping the remote tlpdb + print "location-url\t", $localtlpdb->root, "\n"; $localtlpdb->writeout; return; } @@ -1046,6 +1053,7 @@ sub action_dumptlpdb { init_tlmedia(); $remotetlpdb->writeout; } + $::machinereadable = $savemr; return; } @@ -5765,6 +5773,13 @@ Dumps the remote tlpdb. If both B<--local> and B<--remote> is given, only the local tlpdb is dumped out. If none is given then nothing is dumped. +In the line before the dump of the tlpdb the location is specified on +a line: + + location-url TAB <location> + + + =head2 list [--only-installed] [collections|schemes|I<pkg>...] |