diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLMedia.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLMedia.pm | 11 |
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; |