diff options
author | Norbert Preining <preining@logic.at> | 2009-04-28 20:49:41 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-04-28 20:49:41 +0000 |
commit | 112ac50ab71a7f8a8af21fa802322c7f8a84011d (patch) | |
tree | b91b4ac07db6c1ac65e4d9a61ce5301452846532 | |
parent | 8bf9a182adf98b559fdf67c5612a1a7ee8f619f7 (diff) |
don't remove dirs for now, but give big fat warning
git-svn-id: svn://tug.org/texlive/branches/branch2009-dev@12840 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r-- | Master/tlpkg/TeXLive/TLMedia.pm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/Master/tlpkg/TeXLive/TLMedia.pm b/Master/tlpkg/TeXLive/TLMedia.pm index 85347df9aea..f455fd0a654 100644 --- a/Master/tlpkg/TeXLive/TLMedia.pm +++ b/Master/tlpkg/TeXLive/TLMedia.pm @@ -380,13 +380,14 @@ sub remove_package { tlwarn(" $f - $allfiles{$f}\n"); } } - my @removals = &removed_dirs (@goodfiles); foreach my $entry (@goodfiles) { unlink $entry; } - foreach my $entry (@removals) { - rmdir $entry; - } + tlwarn("MISSING REMOVAL OF EMPTY DIRECTORIES: sub removed_dirs needed!\n"); + #my @removals = &removed_dirs (@goodfiles); + #foreach my $entry (@removals) { + # rmdir $entry; + #} $localtlpdb->remove_package($pkg); merge_into(\%ret, $tlp->make_return_hash_from_executes("disable")); $ret{'mktexlsr'} = 1; |