if ($Is_VMS) { # We did core file selection during build
my $coredir = "lib/$Config{'arch'}/$ver";
$coredir =~ tr/./_/;
- @corefiles = <$coredir/*.*>;
+ @corefiles = map { s|^$coredir/||i; } <$coredir/*.*>;
}
else {
# [als] hard-coded 'libperl' name... not good!
sub copy_if_diff {
my($from,$to)=@_;
return 1 if (($^O eq 'VMS') && (-d $from));
- -f $from || die "$0: $from not found";
+ -f $from || warn "$0: $from not found";
$packlist->{$to} = { type => 'file' };
if (compare($from, $to) || $nonono) {
safe_unlink($to); # In case we don't have write permissions.