summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-08-05 16:36:29 +0000
committerNorbert Preining <preining@logic.at>2009-08-05 16:36:29 +0000
commit2df22d5fbbd5f1b805e9628772cc7e1ef8893235 (patch)
treeafe0101e0508ecc728c72d33da9c0cde5bd9cbb7
parentedd31659b22ab4d3718918fca2ac2506fe118474 (diff)
save 00texlive.installation TLPOBJ into tlpkg/tlpobj on any change,
and use it at recreate-tlpdb together with the default options git-svn-id: svn://tug.org/texlive/trunk@14543 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgr.pl12
1 files changed, 11 insertions, 1 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl
index 0e544ebe073..a983bb649d5 100755
--- a/Master/texmf/scripts/texlive/tlmgr.pl
+++ b/Master/texmf/scripts/texlive/tlmgr.pl
@@ -2219,6 +2219,16 @@ sub action_option {
}
}
$localtlpdb->save;
+ # now also save the TLPOBJ of 00texlive.installation
+ my $tlpo = $localtlpdb->get_package("00texlive.installation");
+ if ($tlpo) {
+ if (open(TOFD, ">$Master/tlpkg/tlpobj/00texlive.installation.tlpobj")) {
+ $tlpo->writeout(\*TOFD);
+ close(TOFD);
+ } else {
+ tlwarn("Cannot save 00texlive.installation to $Master/tlpkg/tlpobj/00texlive.installation.tlpobj\n");
+ }
+ }
} else {
# show current value
info ("$TLPDBOptions{$opt}->[3] ($TLPDBOptions{$opt}->[2]): " .
@@ -2546,7 +2556,7 @@ sub action_recreate_tlpdb {
# now we have all the stuff for 00texlive.installation done
$tlpdb->add_tlpobj($inst);
# reset the options to default values
- $tlpdb->reset_options();
+ $tlpdb->add_default_options();
# add the other stuff in $Master/tlpkg/tlpobj/*.tlpobj
# we can ignore *.{source,doc}.tlpobj because they are already
# included in the *.tlpobj parent one at install time