diff options
| author | Norbert Preining <preining@logic.at> | 2011-06-25 23:01:07 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2011-06-25 23:01:07 +0000 |
| commit | efe960cb963fd8fd3224a9c1ae4f1f770a05c5d4 (patch) | |
| tree | e6ded3db76e59fc96dde45e372ff5c261da0e580 | |
| parent | 71361c32a83603e0e2158e617945653483a949fc (diff) | |
make sure that an entry called "man" is never linked (independent from
where it is residing, a better solution would be nice, but for now
it is ok, we never call add_link_dir_dir with a target that contains
man.
git-svn-id: svn://tug.org/texlive/trunk@23131 c570f23f-e606-0410-a88d-b1316a301751
| -rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 841d7666c38..dc03b55b207 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -1887,6 +1887,8 @@ sub add_link_dir_dir { chomp (@files = `ls "$from"`); my $ret = 1; for my $f (@files) { + # skip certain dangerous entries that should never be linked somewhere + next if ($f eq "man"); unlink("$to/$f"); if (system("ln -s \"$from/$f\" \"$to\"")) { tlwarn("Linking $f from $from to $to failed: $!\n"); |