diff options
| author | Norbert Preining <preining@logic.at> | 2012-01-05 02:07:33 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2012-01-05 02:07:33 +0000 |
| commit | e5c8e95e9c8ff215f00a510e5e4b6d24abd554e7 (patch) | |
| tree | e6023742482e601c0cea388449d5e393365c7f33 /Master/tlpkg | |
| parent | b37ce8e0eee1cd9c3d5fd5f8c636e40306e9f935 (diff) | |
do not remove directories that are in or below what is in opt_sys_*
on tlmgr path remove action
git-svn-id: svn://tug.org/texlive/trunk@25027 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 259a5760221..7769b9f33d8 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -1951,7 +1951,7 @@ sub remove_link_dir_dir { } # trry to remove the destination directory, it might be empty and # we might have write permissions, ignore errors - `rmdir "$to" 2>/dev/null`; + # `rmdir "$to" 2>/dev/null`; return $ret; } else { tlwarn ("destination $to not writable, no removal of links done!\n"); @@ -1991,7 +1991,7 @@ sub add_remove_symlinks { $errors++ unless remove_link_dir_dir($mandir, "$sys_man/$m"); } } - `rmdir "$sys_man" 2>/dev/null` if ($mode eq "remove"); + # `rmdir "$sys_man" 2>/dev/null` if ($mode eq "remove"); } else { tlwarn("destination of man symlink $sys_man not writable, " . "cannot $mode symlinks.\n"); |