summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-04-03 17:46:02 +0000
committerNorbert Preining <preining@logic.at>2008-04-03 17:46:02 +0000
commit53d1581ac5983a12e64391ae0bd381304f81c971 (patch)
tree33bfba07ddc7bbb4b028d386d5fe1c5f34ba0647 /Master
parent4e1f03943679d63d28186364e040a31dd3560b9f (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-xMaster/install-tl.pl58
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");
}
}