#!./perl
BEGIN {
- require 5.003_90;
+ require 5.004;
@INC = 'lib';
$ENV{PERL5LIB} = 'lib';
}
push(@corefiles,'sperl.o') if -f 'sperl.o';
foreach $file (@corefiles) {
# HP-UX (at least) needs to maintain execute permissions
- # on dynamically-loaded libraries.
+ # on dynamically-loadable libraries. So we do it for all.
copy_if_diff($file,"$installarchlib/CORE/$file")
- and chmod($file =~ /^\.(so|$dlext)$/ ? 0555 : 0444,
+ and chmod($file =~ /\.(so|\Q$dlext\E)$/ ? 0555 : 0444,
"$installarchlib/CORE/$file");
}
"${installarchlib}/pod/perldiag.pod");
if (compare($from, $to) || $nonono) {
mkpath("${installarchlib}/pod", 1, 0777);
+ unlink($to);
link($from, $to);
}
}
eval {
CORE::link($from, $to)
? $success++
- : warn "Couldn't link $from to $to: $!\n"
+ : ($from =~ m#^/afs/# || $to =~ m#^/afs/#)
+ ? die "AFS" # okay inside eval {}
+ : warn "Couldn't link $from to $to: $!\n"
unless $nonono;
};
if ($@) {
local($depth) = $dir ? "lib/$dir" : "lib";
my $name = $_;
+
+ if ($name eq 'CVS' && -d $name) {
+ $File::Find::prune = 1;
+ return;
+ }
# ignore patch backups and the .exists files.
return if $name =~ m{\.orig$|~$|^\.exists};
}
if (-f $_) {
- if (/\.al$/ || /\.ix$/) {
+ if (/\.(?:al|ix)$/ && !($dir =~ m[^auto/(.*)$] && $archpms{$1})) {
$installlib = $installprivlib;
#We're installing *.al and *.ix files into $installprivlib,
#but we have to delete old *.al and *.ix files from the 5.000