Undo private patch

diff --git a/installperl b/installperl
index 9563bda..07b1e55 100755 (executable)
--- 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 89e8671..71f553b 100644 (file)
--- 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,$_);