diff options
| -rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 11 |
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); } } |