summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2020-01-27 18:20:16 +0000
committerKarl Berry <karl@freefriends.org>2020-01-27 18:20:16 +0000
commitd9e58e3074a4ca245488d386d800e4ceb4a3a61b (patch)
tree508009bb31c8d85f4a124c946230fab1c0e43548
parenta106cb0b10820aa64385f0071bcee04a2cd8bfaa (diff)
more $prg: prefixes for info() messages.
git-svn-id: svn://tug.org/texlive/trunk@53568 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xMaster/texmf-dist/scripts/texlive/tlmgr.pl16
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;
}