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

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);
   }
 }