From: Craig A. Berry <craigberry@mac.com>
Date: Sat, 2 Jun 2007 17:47:37 +0000 (+0000)
Subject: In File::Path::_rmtree, we want a list of files, not directories (some of them
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bfbf02a1bb78f5006578304da872a3d29b074c1f;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
                 );