Lines Matching refs:libdir

7 my $libdir; my $bindir; my $man1dir; my $man3dir; my $comment; my $perlbin;
9 ($libdir, $bindir, $man1dir, $man3dir) = &defaults();
12 	if (! $libdir) { die "Sorry, can't write to $libdir\n"; }
13 	&install("$libdir/Crypt", $bindir, $man1dir, $man3dir);
17 if ($libdir) {
22 		if (! $libdir) { die "Sorry, can't write to $libdir\n"; }
23 		&install("$libdir/Crypt", $bindir, $man1dir, $man3dir);
28 $libdir  = &libdir;
31 &install("$libdir/Crypt", $bindir, $man1dir, $man3dir);
37 	my $libdir = $Config{installsitelib};
41 	if (!-w $libdir) { $libdir = ''; }
45 	return ($libdir, $bindir, $man1dir, $man3dir);
48 sub install {  my ($libdir, $bindir, $man1dir, $man3dir) = @_;
49 	if (! $libdir) { die "Sorry, can't write to $libdir\n"; }
50 	$comment = &comment($libdir, $bindir, $man1dir, $man3dir);
56 	print STDERR "installing $libdir/Tea.pm ...";
57 	if (!-d $libdir) { mkdir $libdir, 0755; }
58 	chmod 0755, $libdir;
59 	my $target = "$libdir/Tea.pm";
109 		s/#LIBDIR#/$libdir/;
149 sub libdir {
150 	my (@libdirs, @tried, @writeable, $libdir);
160 		$libdir = &ask(<<'EOT');
166 		if (! $libdir) { die "not installing, nowhere to install module\n"; }
167 		if (! -d $libdir) { die "Sorry, $libdir is not a directory.\n"; }
168 		if (! -w $libdir) { die "Sorry, $libdir is not writeable.\n"; }
170 		$libdir = &choose("Where should the module be installed ?",
172 		if ($libdir eq 'Somewhere Else') {
173 			$libdir = &ask('in which directory, then ?');
174 			if (! $libdir) { die "not installing, nowhere to install\n"; }
175 			if (! -d $libdir) { die "Sorry, $libdir is not a directory.\n"; }
176 			if (! -w $libdir) { die "Sorry, $libdir is not writeable.\n"; }
178 		if (! $libdir) { die "Sorry, nowhere to install the module\n"; }
180 	$libdir =~ s/\/$//;
181 	return $libdir;
226 sub comment { my ($libdir, $bindir, $man3dir) = @_;
232 	if ($libdir) { $comment .= ",\nmodule installed in $libdir"; }