#!./perl
BEGIN {
- require 5.003_90;
+ require 5.004;
@INC = 'lib';
$ENV{PERL5LIB} = 'lib';
}
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 ($@) {
$name = "$dir/$name" if $dir ne '';
- # ignore Chip-style patch backups.
- return if grep(/^P\d+$/, split(m{/+}, $name));
-
my $installlib = $installprivlib;
if ($dir =~ /^auto/ ||
($name =~ /^(.*)\.(?:pm|pod)$/ && $archpms{$1})) {