diff options
author | Norbert Preining <preining@logic.at> | 2011-06-25 23:09:38 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2011-06-25 23:09:38 +0000 |
commit | 5302941d89ef5b9395f85209ef927ff1d507fcfd (patch) | |
tree | c1df0514266341d9dfb4eeac290e1e6670bbb57b /Master/tlpkg/TeXLive/TLUtils.pm | |
parent | efe960cb963fd8fd3224a9c1ae4f1f770a05c5d4 (diff) |
- give debug info when man is skipped
- also skip man at removal time, otherwise we get warnings
git-svn-id: svn://tug.org/texlive/trunk@23132 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-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"); |