Change 31327: In File::Path::_rmtree, we want a list of files, not directories (some of them

[Craig A . Berry]

Change 31327 by [EMAIL PROTECTED] on 2007/06/02 17:47:37

        In File::Path::_rmtree, we want a list of files, not directories (some 
of them 
        may be directory files, which is ok).

Affected files ...

... //depot/perl/lib/File/Path.pm#43 edit

Differences ...

==== //depot/perl/lib/File/Path.pm#43 (text) ====
Index: perl/lib/File/Path.pm
--- perl/lib/File/Path.pm#42~31315~     2007-05-31 02:42:05.000000000 -0700
+++ perl/lib/File/Path.pm       2007-06-02 10:47:37.000000000 -0700
@@ -580,7 +580,7 @@
             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
                 );
End of Patch.