summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-05-12 21:13:40 +0000
committerNorbert Preining <preining@logic.at>2008-05-12 21:13:40 +0000
commit90b5501bb1ad2a62ec5592940057715292f6bbb5 (patch)
tree93abf39a0d881d13dd907ac3f539a6ab342ebfbb /Master
parent32381a8e78016682a27c24f77654a853b6d9bc9f (diff)
print out the list of actually removed packages at the end of a
tlmgr remove run git-svn-id: svn://tug.org/texlive/trunk@8090 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgr.pl11
1 files changed, 9 insertions, 2 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl
index 36295fc1a9d..6670f1205a7 100755
--- a/Master/texmf/scripts/texlive/tlmgr.pl
+++ b/Master/texmf/scripts/texlive/tlmgr.pl
@@ -6,7 +6,6 @@
# or any later version.
#
# TODO:
-# - (remove) keep track which packages have been *actually* removed!
# - ordering or collections removal (see below for details)
# - (?) removal does not remove created format files from TEXMFSYSVAR
# - other features: dependency check?, ...?
@@ -343,7 +342,13 @@ sub action_remove {
if ($opt_dry) {
print "Removing $pkg\n";
} else {
- merge_into(\%ret, &remove_package($pkg, $localtlpdb, $opt_force));
+ my %foo;
+ merge_into(\%foo, &remove_package($pkg, $localtlpdb, $opt_force));
+ if (keys %foo) {
+ # removal was successful
+ merge_into(\%ret, \%foo);
+ $already_removed{$pkg} = 1;
+ }
}
}
}
@@ -352,6 +357,8 @@ sub action_remove {
return;
} else {
$localtlpdb->save;
+ my @foo = sort ( keys %already_removed);
+ print "Actually removed packages: @foo\n";
return(\%ret);
}
}