diff options
author | Karl Berry <karl@freefriends.org> | 2020-01-27 18:20:16 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2020-01-27 18:20:16 +0000 |
commit | d9e58e3074a4ca245488d386d800e4ceb4a3a61b (patch) | |
tree | 508009bb31c8d85f4a124c946230fab1c0e43548 /Master/texmf-dist | |
parent | a106cb0b10820aa64385f0071bcee04a2cd8bfaa (diff) |
more $prg: prefixes for info() messages.
git-svn-id: svn://tug.org/texlive/trunk@53568 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist')
-rwxr-xr-x | Master/texmf-dist/scripts/texlive/tlmgr.pl | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl index 826c9a10c9c..09c45f92539 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgr.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl @@ -3529,14 +3529,14 @@ sub action_update { # only when we are not dry-running we restart the program if (!win32() && $restart_tlmgr && !$opts{"dry-run"} && !$opts{"list"}) { - info ("Restarting tlmgr to complete update ...\n"); + info("$prg: Restarting to complete update ...\n"); debug("restarting tlmgr @::SAVEDARGV\n"); # cleanup temp files before re-exec-ing tlmgr File::Temp::cleanup(); exec("tlmgr", @::SAVEDARGV); # we need warn here, otherwise perl gives warnings! - warn ("$prg: cannot restart tlmgr, please retry update\n"); - return ($F_ERROR); + warn("$prg: cannot restart tlmgr, please retry update\n"); + return($F_ERROR); } # for --dry-run we cannot restart tlmgr (no way to fake successful @@ -3547,7 +3547,7 @@ sub action_update { $opts{"dry-run"} = -1; $localtlpdb = undef; $remotetlpdb = undef; - info ("Restarting tlmgr to complete update ...\n"); + info ("$prg --dry-run: would restart tlmgr to complete update ...\n"); $ret |= action_update(); return ($ret); } @@ -6152,7 +6152,7 @@ sub action_conf { info("$k = " . $cf->value($k) . "\n"); } } else { - info("$arg config file $fn not present\n"); + info("$prg: $arg config file $fn not present\n"); return($F_WARNING); } } else { @@ -6242,7 +6242,7 @@ sub action_conf { } elsif (!defined($val)) { if (defined($opts{'delete'})) { if (defined($cf->value($key))) { - info("removing setting $arg $key value: " . $cf->value($key) + info("$prg: removing setting $arg $key value: " . $cf->value($key) . "from $fn\n"); $cf->delete_key($key); } else { @@ -7471,9 +7471,9 @@ sub clear_old_backups { # only echo out if explicitly asked for verbose which is done # in the backup --clean action if ($verb) { - info ("Removing backup $backupdir/$e->[1]\n"); + info("$prg: Removing backup $backupdir/$e->[1]\n"); } else { - debug ("Removing backup $backupdir/$e->[1]\n"); + debug("Removing backup $backupdir/$e->[1]\n"); } unlink("$backupdir/$e->[1]") unless $dryrun; } |