From bfbf02a1bb78f5006578304da872a3d29b074c1f Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Sat, 2 Jun 2007 17:47:37 +0000
Subject: [PATCH] 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
---
 lib/File/Path.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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