diff options
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 9 |
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"); |