summaryrefslogtreecommitdiff
path: root/Master/install-tl.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/install-tl.pl')
-rwxr-xr-xMaster/install-tl.pl36
1 files changed, 36 insertions, 0 deletions
diff --git a/Master/install-tl.pl b/Master/install-tl.pl
index 72d7fe42dcf..8197dce0237 100755
--- a/Master/install-tl.pl
+++ b/Master/install-tl.pl
@@ -362,6 +362,8 @@ sub do_installation {
&$h();
}
do_postinst_stuff();
+ save_options_into_tlpdb();
+ $localtlpdb->save;
foreach my $h (@::end_install_hook) {
&$h();
}
@@ -707,6 +709,40 @@ sub do_install_packages {
install_packages($tlpdb,$localtlpdb,\@what,\@netarchs,$vars{'option_src'},$vars{'option_doc'});
}
+# for later complete removal we want to save some options and values
+# into the local tlpdb:
+# - should links be set, and if yes, the destination (bin,man,info)
+sub save_options_into_tlpdb {
+ my $tlp = new TeXLive::TLPOBJ;
+ $tlp->name("00texlive-installation.config");
+ $tlp->category("TLCore");
+ my @deps;
+ if ($vars{'option_letter'}) {
+ push @deps, "option_letter";
+ }
+ if ($vars{'option_fmt'}) {
+ push @deps, "option_fmt";
+ }
+ if ($vars{'option_symlinks'}) {
+ push @deps, "option_symlinks";
+ push @deps, "sys_bin/$vars{'sys_bin'}";
+ push @deps, "sys_info/$vars{'sys_info'}";
+ push @deps, "sys_man/$vars{'sys_man'}";
+ }
+ if ($vars{'option_doc'}) {
+ push @deps, "option_doc";
+ }
+ if ($vars{'option_src'}) {
+ push @deps, "option_src";
+ }
+ push @deps, "TEXDIR/$vars{'TEXDIR'}";
+ push @deps, "TEXMFSYSVAR/$vars{'TEXMFSYSVAR'}";
+ push @deps, "TEXMFLOCAL/$vars{'TEXMFLOCAL'}";
+ push @deps, "TEXMFHOME/$vars{'TEXMFHOME'}";
+ $tlp->depends(@deps);
+ $localtlpdb->add_tlpobj($tlp);
+ $localtlpdb->save();
+}
# do_postinst_stuff has to fix up the texmf tree and install some missing
# files. The things to do are taken from the install-live.sh installer