make backup of auto-removed packages

git-svn-id: svn://tug.org/texlive/trunk@19740 c570f23f-e606-0410-a88d-b1316a301751

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");
         }