summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2011-06-25 23:09:38 +0000
committerNorbert Preining <preining@logic.at>2011-06-25 23:09:38 +0000
commit5302941d89ef5b9395f85209ef927ff1d507fcfd (patch)
treec1df0514266341d9dfb4eeac290e1e6670bbb57b
parentefe960cb963fd8fd3224a9c1ae4f1f770a05c5d4 (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
-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");