diff options
| author | Gisle Aas <gisle@aas.no> | 2008-11-19 20:09:20 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-12-04 13:26:59 +0000 |
| commit | 210707008b520f8aa498d2091080e67662d4b270 (patch) | |
| tree | 4f396d4f690da163ad66296f8f2301c061e6e0e1 /lib | |
| parent | fe5460cc78b3fdb133dac6113fd062486cbde848 (diff) | |
| download | perl-210707008b520f8aa498d2091080e67662d4b270.tar.gz | |
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
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/File/Path.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/File/Path.pm b/lib/File/Path.pm index 128d95bafe..602a5003a4 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); } |