#!./perl
BEGIN { @INC=('./lib', '../lib') }
use File::Find;
+use File::Path qw(mkpath);
use Config;
$mainperldir = "/usr/bin";
if ($d_dosuid && $>) { die "You must run as root to install suidperl\n"; }
$installbin || die "No installbin directory in config.sh\n";
--d $installbin || makedir($installbin);
+-d $installbin || mkpath($installbin, 1, 0777);
-d $installbin || die "$installbin is not a directory\n";
-w $installbin || die "$installbin is not writable by you\n"
unless $installbin =~ m#^/afs/# || $nonono;
warn "WARNING: Can't find libperl*.$so* to install into $shrpdir.",
" (Installing other things anyway.)\n";
} else {
- &makedir($shrpdir);
- -w $shrpdir || die "$shrpdir is not writable by you\n";
+ mkpath($shrpdir, 1, 0777);
+ -w $shrpdir || $nonono || die "$shrpdir is not writable by you\n";
&cmd("cp libperl*.$so* $shrpdir");
}
}
# Install scripts.
-&makedir($installscript);
+mkpath($installscript, 1, 0777);
for (@scripts) {
if (-f $_) { # cppstdin might not exist on this system.
}
# Install pod pages. Where? I guess in $installprivlib/pod.
-&makedir("${installprivlib}/pod");
+mkpath("${installprivlib}/pod", 1, 0777);
foreach $file (@pods) {
# $file is a name like pod/perl.pod
cp_if_diff($file, "${installprivlib}/${file}");
# Install old man pages.
if ($installman1dir ne '') {
- &makedir($installman1dir);
+ mkpath($installman1dir, 1, 0777);
if (! &samepath($installman1dir, '.')) {
for (@manpages) {
$do_installarchlib = $do_installprivlib = 0;
-&makedir($installprivlib);
-&makedir($installarchlib);
-&makedir($installsitelib) if ($installsitelib);
-&makedir($installsitearch) if ($installsitearch);
+mkpath($installprivlib, 1, 0777);
+mkpath($installarchlib, 1, 0777);
+mkpath($installsitelib, 1, 0777) if ($installsitelib);
+mkpath($installsitearch, 1, 0777) if ($installsitearch);
if (chdir "lib") {
$do_installarchlib = ! &samepath($installarchlib, '.');
}
# Install header files and libraries.
-makedir("$installarchlib/CORE");
+mkpath("$installarchlib/CORE", 1, 0777);
foreach $file (<*.h libperl*.*>) {
cp_if_diff($file,"$installarchlib/CORE/$file");
}
unless $nonono;
}
-sub makedir {
- local($dir) = @_;
- unless (-d $dir) {
- local($shortdir) = $dir;
-
- $shortdir =~ s#(.*)/.*#$1#;
- &makedir($shortdir);
-
- print STDERR " mkdir $dir\n";
- mkdir($dir, 0777) || warn "Couldn't create $dir: $!\n" unless $nonono;
- }
-}
-
sub samepath {
local($p1, $p2) = @_;
local($dev1, $ino1, $dev2, $ino2);
system "cmp", "-s", $_, "$installlib/$name";
if ($?) {
&unlink("$installlib/$name");
- &makedir("$installlib/$dir");
+ mkpath("$installlib/$dir", 1, 0777);
cp_if_diff($_, "$installlib/$name");
# HP-UX (at least) needs to maintain execute permissions
# on dynamically-loaded libraries.
}
}
} elsif (-d $_) {
- &makedir("$installlib/$name");
+ mkpath("$installlib/$name", 1, 0777);
}
}