17 lines
779 B
Diff
17 lines
779 B
Diff
|
diff -up perl-5.10.0/lib/File/Path.pm.cve perl-5.10.0/lib/File/Path.pm
|
||
|
|
--- perl-5.10.0/lib/File/Path.pm.cve 2007-12-18 11:47:07.000000000 +0100
|
||
|
|
+++ perl-5.10.0/lib/File/Path.pm 2008-06-24 13:25:53.000000000 +0200
|
||
|
|
@@ -351,10 +351,8 @@ sub _rmtree {
|
||
|
|
}
|
||
|
|
|
||
|
|
my $nperm = $perm & 07777 | 0600;
|
||
|
|
- if ($nperm != $perm and not chmod $nperm, $root) {
|
||
|
|
- if ($Force_Writeable) {
|
||
|
|
- _error($arg, "cannot make file writeable", $canon);
|
||
|
|
- }
|
||
|
|
+ if ($Force_Writeable && $nperm != $perm and not chmod $nperm, $root) {
|
||
|
|
+ _error($arg, "cannot make file writeable", $canon);
|
||
|
|
}
|
||
|
|
print "unlink $canon\n" if $arg->{verbose};
|
||
|
|
# delete all versions under VMS
|