如何在Perl中复制只读目录?

Dav*_*d B 2 perl copy

我正在使用File::Copy::Recursive::dircopy( $original_dirname, $new_dirname ) or die $!;从Perl脚本中复制只读目录.我收到一个Permission denied错误.

我可以看到它$new_dirname已创建,但被标记为只读(与原始目录一样).也许这可以防止将内容复制到其中?

Cha*_*ens 5

是的,这肯定是一个错误File::Copy::Recursive.临时解决方法是将其设置$File::Copy::Recursive::KeepMode为0并chmod自行完成.

它似乎已经被报道并且作者正在努力修复,但它将在2009-05-20"很快"到来,并在2010-04-14"本周末".