diff options
| author | Craig A. Berry <craigberry@mac.com> | 2007-06-02 17:47:37 +0000 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2007-06-02 17:47:37 +0000 |
| commit | bfbf02a1bb78f5006578304da872a3d29b074c1f (patch) | |
| tree | 787c44b28915ffb706633a2ee278b9bcda1f333e /lib/File/Path.pm | |
| parent | e538e23fe51fb3ff862d5cd0d4f3e4d2851b8b49 (diff) | |
| download | perl-bfbf02a1bb78f5006578304da872a3d29b074c1f.tar.gz | |
In File::Path::_rmtree, we want a list of files, not directories (some of them
may be directory files, which is ok).
p4raw-id: //depot/perl@31327
Diffstat (limited to 'lib/File/Path.pm')
| -rw-r--r-- | lib/File/Path.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/File/Path.pm b/lib/File/Path.pm index 9a0e48cc92..e5b2dfdb28 100644 --- a/lib/File/Path.pm +++ b/lib/File/Path.pm @@ -580,7 +580,7 @@ sub _rmtree { else { my $updir = File::Spec->updir(); my $curdir = File::Spec->curdir(); - @files = map(File::Spec->catdir($root,$_), + @files = map(File::Spec->catfile($root,$_), grep {$_ ne $updir and $_ ne $curdir} @files ); |