diff options
| author | Norbert Preining <preining@logic.at> | 2009-08-05 16:36:29 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2009-08-05 16:36:29 +0000 |
| commit | 2df22d5fbbd5f1b805e9628772cc7e1ef8893235 (patch) | |
| tree | afe0101e0508ecc728c72d33da9c0cde5bd9cbb7 | |
| parent | edd31659b22ab4d3718918fca2ac2506fe118474 (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-x | Master/texmf/scripts/texlive/tlmgr.pl | 12 |
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 |