From: Gisle Aas <gisle@aas.no>
Date: Wed, 19 Nov 2008 19:09:20 +0000 (+0100)
Subject: Re: File::Path regression in 5.8.9
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=210707008b520f8aa498d2091080e67662d4b270;p=p5sagit%2Fp5-mst-13.2.git

Re: File::Path regression in 5.8.9
Message-Id: <C72B3504-E0B8-4622-89AA-3C07C57C14E2@activestate.com>

[plus bump $VERSION. Gah. Format F-word must die]

p4raw-id: //depot/perl@35008
---

diff --git a/lib/File/Path.pm b/lib/File/Path.pm
index 128d95b..602a500 100644
--- a/lib/File/Path.pm
+++ b/lib/File/Path.pm
@@ -17,7 +17,7 @@ BEGIN {
 
 use Exporter ();
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
-$VERSION   = '2.07';
+$VERSION   = '2.07_01';
 @ISA       = qw(Exporter);
 @EXPORT    = qw(mkpath rmtree);
 @EXPORT_OK = qw(make_path remove_tree);
@@ -333,7 +333,7 @@ sub _rmtree {
                 }
                 else {
                     _error($arg, "cannot remove directory", $canon);
-                    if (!chmod($perm, ($Is_VMS ? VMS::Filespec::fileify($root) : $root))
+                    if ($Force_Writeable && !chmod($perm, ($Is_VMS ? VMS::Filespec::fileify($root) : $root))
                     ) {
                         _error($arg, sprintf("cannot restore permissions to 0%o",$perm), $canon);
                     }