# Do some quick sanity checks.
-if ($d_dosuid && $>) { die "You must run as root to install suidperl\n"; }
+if (!$nonono && $d_dosuid && $>) { die "You must run as root to install suidperl\n"; }
$installbin || die "No installbin directory in config.sh\n";
-d $installbin || mkpath($installbin, $verbose, 0777);
}
}
-# Switch in the 5.005-threads versions of he threadsafe queue and semaphore
-# modules if so needed.
-if ($Config{use5005threads}) {
- for my $m (qw(Queue Semaphore)) {
- my $t = "$installprivlib/Thread/$m.pm";
- unlink $t;
- copy("ext/Thread/$m.pmx", $t);
- chmod(0444, $t);
- }
-}
-
# Install main perl executables
# Make links to ordinary names if installbin directory isn't current directory.
my $name = $_;
- # Ignore RCS and CVS directories.
- if (($name eq 'CVS' or $name eq 'RCS') and -d $name) {
+ # Ignore version control directories.
+ if (($name eq 'CVS' or $name eq 'RCS' or $name eq '.svn') and -d $name) {
$File::Find::prune = 1;
return;
}
# ignore patch backups, RCS files, emacs backup & temp files and the
- # .exists files, .PL files, and .t files.
- return if $name =~ m{\.orig$|~$|^#.+#$|,v$|^\.exists|\.PL$|\.t$} ||
+ # .exists files, .PL files, and test files.
+ return if $name =~ m{\.orig$|\.rej$|~$|^#.+#$|,v$|^\.exists|\.PL$|\.t$|^test\.pl$} ||
$dir =~ m{/t(?:/|$)};
+ # ignore the cpan script in lib/CPAN/bin (installed later with other utils)
+ return if $name eq 'cpan';
# ignore the test extensions
return if $dir =~ m{ext/XS/(?:APItest|Typemap)/};