diff options
| author | Chip Salzenberg <chip@perl.com> | 1997-04-13 21:06:24 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-04-25 00:00:00 +1200 |
| commit | 9cb0349816f65e482495ae89139e3ee79820f17e (patch) | |
| tree | 54c24281abf75fc044e5066787c40b4e0729cb52 | |
| parent | 26db47c4f558e866cc7267a8036a8ebaeaa1ee73 (diff) | |
| download | perl-9cb0349816f65e482495ae89139e3ee79820f17e.tar.gz | |
Undo private patch
| -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,$_); |