233                 unless (unlink $root) {
234                     carp "Can't unlink file $root: $!";
235                     if ($force_writeable) {
236                         chmod $rp, $root
237                             or carp("and can't restore permissions to "
238                                     . sprintf("0%o",$rp) . "\n");
239                     }
240                     last;
241                 }