try to remove empty ROOT/bin/$arch directories after tlmgr arch remove

git-svn-id: svn://tug.org/texlive/trunk@16061 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 6 insertions, 0 deletions

diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl
index 2df72ffcbb2..7ef87afaf17 100755
--- a/Master/texmf/scripts/texlive/tlmgr.pl
+++ b/Master/texmf/scripts/texlive/tlmgr.pl
@@ -2908,6 +2908,12 @@ sub action_arch {
       }
     }
     if (!$opts{"dry-run"}) {
+      # try to remove bin/$a dirs
+      for my $a (@todoarchs) {
+        if (!rmdir("$Master/bin/$a")) {
+          tlwarn("binary directory $Master/bin/$a not empty after removal of $a.\n");
+        }
+      }
       # update the option("available_architectures") list of installed archs
       my @larchs = $localtlpdb->setting("available_architectures");
       my @newarchs;