diff options
author | Norbert Preining <preining@logic.at> | 2008-04-03 17:46:02 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-04-03 17:46:02 +0000 |
commit | 53d1581ac5983a12e64391ae0bd381304f81c971 (patch) | |
tree | 33bfba07ddc7bbb4b028d386d5fe1c5f34ba0647 /Master | |
parent | 4e1f03943679d63d28186364e040a31dd3560b9f (diff) |
try to install links to man/info pages only if options_doc is choosen
git-svn-id: svn://tug.org/texlive/trunk@7306 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-x | Master/install-tl.pl | 58 |
1 files changed, 30 insertions, 28 deletions
diff --git a/Master/install-tl.pl b/Master/install-tl.pl index 86f8720f2b8..2bf329ea0d7 100755 --- a/Master/install-tl.pl +++ b/Master/install-tl.pl @@ -950,36 +950,38 @@ sub do_postinst_stuff { } else { tllog($::LOG_NORMAL, "destination of bin symlink $vars{'sys_bin'} not writable, no linking of bin files done!\n"); } - # info files - mkdirhier $vars{'sys_info'}; - if (-w $vars{'sys_info'}) { - tllog($::LOG_NORMAL, "linking info pages to $vars{'sys_info'}\n"); - @files = `ls "$TEXDIR/texmf/doc/info"`; - chomp(@files); - `cd "$vars{'sys_info'}" && rm -f @files`; - `ln -s "$TEXDIR/texmf/doc/info/"*info* "$vars{'sys_info'}"`; - } else { - tllog($::LOG_NORMAL, "destination of info symlink $vars{'sys_info'} not writable, no linking of info files done!\n"); - } - # man files - mkdirhier $vars{'sys_man'}; - if (-w $vars{'sys_man'}) { - tllog($::LOG_NORMAL, "linking man pages to $vars{'sys_man'}\n"); - my $foo = `(cd "$TEXDIR/texmf/doc/man" && echo *)`; - my @mans = split ' ', $foo; - chomp(@mans); - foreach my $m (@mans) { - my $mandir = "$TEXDIR/texmf/doc/man/$m"; - next unless -d $mandir; - mkdirhier "$vars{'sys_man'}/$m"; - next unless -w "$vars{'sys_man'}/$m"; - @files = `ls "$mandir"`; + if ($vars{'option_doc'}) { + # info files + mkdirhier $vars{'sys_info'}; + if (-w $vars{'sys_info'}) { + tllog($::LOG_NORMAL, "linking info pages to $vars{'sys_info'}\n"); + @files = `ls "$TEXDIR/texmf/doc/info"`; chomp(@files); - `cd "$vars{'sys_man'}/$m" && rm -f @files`; - `ln -s "$mandir/"* "$vars{'sys_man'}/$m"`; + `cd "$vars{'sys_info'}" && rm -f @files`; + `ln -s "$TEXDIR/texmf/doc/info/"*info* "$vars{'sys_info'}"`; + } else { + tllog($::LOG_NORMAL, "destination of info symlink $vars{'sys_info'} not writable, no linking of info files done!\n"); + } + # man files + mkdirhier $vars{'sys_man'}; + if (-w $vars{'sys_man'}) { + tllog($::LOG_NORMAL, "linking man pages to $vars{'sys_man'}\n"); + my $foo = `(cd "$TEXDIR/texmf/doc/man" && echo *)`; + my @mans = split ' ', $foo; + chomp(@mans); + foreach my $m (@mans) { + my $mandir = "$TEXDIR/texmf/doc/man/$m"; + next unless -d $mandir; + mkdirhier "$vars{'sys_man'}/$m"; + next unless -w "$vars{'sys_man'}/$m"; + @files = `ls "$mandir"`; + chomp(@files); + `cd "$vars{'sys_man'}/$m" && rm -f @files`; + `ln -s "$mandir/"* "$vars{'sys_man'}/$m"`; + } + } else { + tllog($::LOG_NORMAL, "destination of man symlink $vars{'sys_man'} not writable, no linking of man files done!\n"); } - } else { - tllog($::LOG_NORMAL, "destination of man symlink $vars{'sys_man'} not writable, no linking of man files done!\n"); } } |