summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2010-09-15 09:25:23 +0000
committerNorbert Preining <preining@logic.at>2010-09-15 09:25:23 +0000
commit885e0aeff9e3cd98c962de1196ff41941b4197dd (patch)
tree42e0c646c74fc5a128078a0876ffad47b5802047
parentbd93291ba0cf6b4300b511fd012e20f1a1c8fa0c (diff)
make backup of auto-removed packages
git-svn-id: svn://tug.org/texlive/trunk@19740 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgr.pl10
1 files changed, 10 insertions, 0 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl
index 5718438d16e..36067ccb359 100755
--- a/Master/texmf/scripts/texlive/tlmgr.pl
+++ b/Master/texmf/scripts/texlive/tlmgr.pl
@@ -2237,6 +2237,16 @@ sub action_update {
info("[$currnr/$totalnr] auto-remove: $p\n");
}
if (!$opts{"dry-run"}) {
+ if ($opts{"backup"}) {
+ $pkg->make_container("xz", $root,
+ $opts{"backupdir"},
+ "${p}.r" . $pkg->revision,
+ $pkg->relocated);
+ if ($autobackup) {
+ # in case we do auto backups we remove older backups
+ clear_old_backups($p, $opts{"backupdir"}, $autobackup);
+ }
+ }
$localtlmedia->remove_package($p);
logpackage("remove: $p");
}