diff options
| -rwxr-xr-x | installperl | 3 | ||||
| -rw-r--r-- | lib/ExtUtils/Install.pm | 2 |
2 files changed, 0 insertions, 5 deletions
diff --git a/installperl b/installperl index 9563bda4f3..07b1e55627 100755 --- a/installperl +++ b/installperl @@ -405,9 +405,6 @@ sub installlib { $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})) { diff --git a/lib/ExtUtils/Install.pm b/lib/ExtUtils/Install.pm index 89e8671039..71f553bcbf 100644 --- a/lib/ExtUtils/Install.pm +++ b/lib/ExtUtils/Install.pm @@ -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,$_); |