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

Question

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

我可以看到$new_dirname已创建，但被标记为只读（与原始目录一样）。也许这会阻止将内容复制到其中？...

Answer 1

是的，这似乎是File::Copy::Recursive中的一个错误。临时解决方法是将$File::Copy::Recursive::KeepMode设置为0并自己执行chmod。

似乎已经reported了，作者正在努力解决问题，但它很快就会在2009-05-20和2010-04-14“本周末”推出。