summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLMedia.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/TeXLive/TLMedia.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLMedia.pm11
1 files changed, 5 insertions, 6 deletions
diff --git a/Master/tlpkg/TeXLive/TLMedia.pm b/Master/tlpkg/TeXLive/TLMedia.pm
index 70c5cd67679..b79663dfbf7 100644
--- a/Master/tlpkg/TeXLive/TLMedia.pm
+++ b/Master/tlpkg/TeXLive/TLMedia.pm
@@ -425,15 +425,14 @@ sub remove_package {
$localtlpdb->option_post_code);
}
#
+ my @removals = &TeXLive::TLUtils::removed_dirs (@goodfiles);
# now do the removal
- foreach my $entry (@goodfiles) {
+ for my $entry (@goodfiles) {
unlink $entry;
}
- tlwarn("MISSING REMOVAL OF EMPTY DIRECTORIES: sub removed_dirs needed!\n");
- #my @removals = &removed_dirs (@goodfiles);
- #foreach my $entry (@removals) {
- # rmdir $entry;
- #}
+ for my $d (@removals) {
+ rmdir $d;
+ }
$localtlpdb->remove_package($pkg);
merge_into(\%ret, $tlp->make_return_hash_from_executes("disable"));
$ret{'mktexlsr'} = 1;