tlmgr: make backup message a log for each package, and inform only once

in the beginning (actually make it from debug to info)


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

1 files changed, 3 insertions, 2 deletions

diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl
index cc2bfe5efa4..23e9f6c609f 100755
--- a/Master/texmf/scripts/texlive/tlmgr.pl
+++ b/Master/texmf/scripts/texlive/tlmgr.pl
@@ -1904,7 +1904,8 @@ sub action_update {
   # finally, if we have --backupdir, but no --backup, just enable it
   $opts{"backup"} = 1 if $opts{"backupdir"};
 
-  debug("Doing backups to $opts{'backupdir'}\n") if $opts{"backup"};
+  info("Saving backups to $opts{'backupdir'}\n") if 
+    ($opts{"backup"} && !$::machinereadable);
 
   # these two variables are used throughout this function
   my $root = $localtlpdb->root;
@@ -4495,7 +4496,7 @@ sub clear_old_backups
   my $i = 1;
   for my $e (reverse sort {$a <=> $b} @backups) {
     if ($i > $autobackup) {
-      info ("Removing backup $backupdir/$pkg.r$e.tar.xz\n");
+      log ("Removing backup $backupdir/$pkg.r$e.tar.xz\n");
       unlink("$backupdir/$pkg.r$e.tar.xz") unless $dryrun;
     }
     $i++;