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

diff --git a/lib/File/Path.pm b/lib/File/Path.pm
index 9a0e48c..e5b2dfd 100644 (file)
--- 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
                 );