summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2009-07-21 21:38:35 +0000
committerKarl Berry <karl@freefriends.org>2009-07-21 21:38:35 +0000
commit8d4d3654f0230d5451401f26029c886d0455b13c (patch)
treef768540464d50bbb299a7c9a135218de8257abb1
parentb44db3e61b8cbfbeec75722d6cfd8d27fdeff999 (diff)
ddebug which package is being removed (Luecking 21
Jul 2009 12:26:55), change other print to debug. git-svn-id: svn://tug.org/texlive/trunk@14362 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgr.pl3
1 files changed, 2 insertions, 1 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl
index d3e048facef..8b9b9ce729f 100755
--- a/Master/texmf/scripts/texlive/tlmgr.pl
+++ b/Master/texmf/scripts/texlive/tlmgr.pl
@@ -1609,6 +1609,7 @@ sub action_update {
if ($opts{"no-remove"}) {
info("not removing $p due to -no-remove (removed on server)\n");
} else {
+ &ddebug("removing package $p\n");
my $rev = $localtlmedia->tlpdb->get_package($p)->revision;
if ($opts{"list"}) {
if ($::machinereadable) {
@@ -3148,7 +3149,7 @@ sub init_tlmedia {
if (!open($tlfh, ">:unix", $loc_copy_of_remote_tlpdb)) {
tlwarn("Cannot save remote TeX Live database to $loc_copy_of_remote_tlpdb: $!\n");
} else {
- print "DEBUG: writing out tlpdb to $loc_copy_of_remote_tlpdb\n";
+ &debug("writing out tlpdb to $loc_copy_of_remote_tlpdb\n");
$tlmediatlpdb->writeout($tlfh);
close($tlfh);
}