This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Undo private patch
[perl5.git] / lib / ExtUtils / Install.pm
index 89e8671..71f553b 100644 (file)
@@ -49,7 +49,6 @@ sub install {
        opendir DIR, $source_dir_or_file or next;
        for (readdir DIR) {
            next if $_ eq "." || $_ eq ".." || $_ eq ".exists";
-           next if /^P\d+$/ && -d "$source_dir_or_file/$_"; # no Chip bk's
            if (-w $hash{$source_dir_or_file} || mkpath($hash{$source_dir_or_file})) {
                last;
            } else {
@@ -89,7 +88,6 @@ sub install {
                          $atime,$mtime,$ctime,$blksize,$blocks) = stat;
            return unless -f _;
            return if $_ eq ".exists";
-           return if /\bP\d+\b/;       # no Chip-style backups
            my $targetdir = $MY->catdir($hash{$source},$File::Find::dir);
            my $targetfile = $MY->catfile($targetdir,$_);