|
Line
Link Here
|
| 0 |
-- perl-5.8.0/lib/File/Path.pm.chmod 2004-11-23 10:41:57.594065752 -0500 |
0 |
++ perl-5.8.0/lib/File/Path.pm 2004-11-23 10:43:41.453380351 -0500 |
|
Lines 184-190
Link Here
|
| 184 |
# it's also intended to change it to writable in case we have |
184 |
# it's also intended to change it to writable in case we have |
| 185 |
# to recurse in which case we are better than rm -rf for |
185 |
# to recurse in which case we are better than rm -rf for |
| 186 |
# subtrees with strange permissions |
186 |
# subtrees with strange permissions |
| 187 |
chmod(0777, ($Is_VMS ? VMS::Filespec::fileify($root) : $root)) |
187 |
chmod(0700, ($Is_VMS ? VMS::Filespec::fileify($root) : $root)) |
| 188 |
or carp "Can't make directory $root read+writeable: $!" |
188 |
or carp "Can't make directory $root read+writeable: $!" |
| 189 |
unless $safe; |
189 |
unless $safe; |
|
Lines 218-224
Link Here
|
| 218 |
print "skipped $root\n" if $verbose; |
218 |
print "skipped $root\n" if $verbose; |
| 219 |
next; |
219 |
next; |
| 220 |
} |
220 |
} |
| 221 |
chmod 0777, $root |
221 |
chmod 0700, $root |
| 222 |
or carp "Can't make directory $root writeable: $!" |
222 |
or carp "Can't make directory $root writeable: $!" |
| 223 |
if $force_writeable; |
223 |
if $force_writeable; |
| 224 |
print "rmdir $root\n" if $verbose; |
224 |
print "rmdir $root\n" if $verbose; |
|
Lines 240-246
Link Here
|
| 240 |
print "skipped $root\n" if $verbose; |
240 |
print "skipped $root\n" if $verbose; |
| 241 |
next; |
241 |
next; |
| 242 |
} |
242 |
} |
| 243 |
chmod 0666, $root |
243 |
chmod 0600, $root |
| 244 |
or carp "Can't make file $root writeable: $!" |
244 |
or carp "Can't make file $root writeable: $!" |
| 245 |
if $force_writeable; |
245 |
if $force_writeable; |
| 246 |
print "unlink $root\n" if $verbose; |
246 |
print "unlink $root\n" if $verbose; |
