summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm9
1 files changed, 8 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index dc03b55b207..2a8399f1ea4 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -1888,7 +1888,10 @@ sub add_link_dir_dir {
my $ret = 1;
for my $f (@files) {
# skip certain dangerous entries that should never be linked somewhere
- next if ($f eq "man");
+ if ($f eq "man") {
+ debug("not linking man into $to.\n");
+ next;
+ }
unlink("$to/$f");
if (system("ln -s \"$from/$f\" \"$to\"")) {
tlwarn("Linking $f from $from to $to failed: $!\n");
@@ -1910,6 +1913,10 @@ sub remove_link_dir_dir {
my $ret = 1;
foreach my $f (@files) {
next if (! -r "$to/$f");
+ if ($f eq "man") {
+ debug("not considering man in $to, it should not be from us!\n");
+ next;
+ }
if ((-l "$to/$f") &&
(readlink("$to/$f") =~ m;^$from/;)) {
$ret = 0 unless unlink("$to/$f");