summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2012-01-05 02:07:33 +0000
committerNorbert Preining <preining@logic.at>2012-01-05 02:07:33 +0000
commite5c8e95e9c8ff215f00a510e5e4b6d24abd554e7 (patch)
treee6023742482e601c0cea388449d5e393365c7f33 /Master/tlpkg
parentb37ce8e0eee1cd9c3d5fd5f8c636e40306e9f935 (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.pm4
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");