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 /lib | |
| parent | 26db47c4f558e866cc7267a8036a8ebaeaa1ee73 (diff) | |
| download | perl-9cb0349816f65e482495ae89139e3ee79820f17e.tar.gz | |
Undo private patch
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/Install.pm | 2 |
1 files changed, 0 insertions, 2 deletions
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,$_); |