Lines Matching refs:mandir
30 ($man1dir, $man3dir) = &mandir;
184 sub mandir {
185 my (@tried, @writeable, $mandir);
192 $mandir = &ask(<<EOT);
201 if (! $mandir) { $mandir = 'Do Not Install Manual';
202 } elsif (! -d $mandir) { die "Sorry, $mandir is not a directory.\n";
203 } elsif (! -w $mandir) { die "Sorry, $mandir is not writeable.\n";
206 $mandir = &choose(
210 if ($mandir eq 'Somewhere Else') {
211 $mandir = &ask('in which directory, then ?');
212 if (! $mandir) { die "not installing, nowhere to install\n"; }
213 if (! -d $mandir) { die "Sorry, $mandir is not a directory.\n"; }
214 if (! -w $mandir) { die "Sorry, $mandir is not writeable.\n"; }
215 } elsif ($mandir eq 'Do Not Install Manual') {
217 } elsif (! $mandir) {
220 $mandir =~ s/\/$//;
221 if (!-d "$mandir/man1") { mkdir "$mandir/man1", 0755; }
222 if (!-d "$mandir/man3") { mkdir "$mandir/man3", 0755; }
223 return ("$mandir/man1", "$mandir/man3");
231 my $mandir = $man3dir; $mandir =~ s#/man[13]$##;
234 if ($mandir) { $comment .= ",\nmanual installed in $mandir"; }