From: Chip Salzenberg <chip@perl.com>
Date: Sun, 13 Apr 1997 09:06:24 +0000 (+1200)
Subject: Undo private patch
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9cb0349816f65e482495ae89139e3ee79820f17e;p=p5sagit%2Fp5-mst-13.2.git

Undo private patch
---

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