summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
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);
}
}