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

Question

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

我可以看到，$new_dirname已创建，但被标记为只读（如原始目录）。也许这可以防止从内容被复制到它？

Answer 1

是的，这绝对似乎是一个bug在File::Copy::Recursive。临时工作是将$File::Copy::Recursive::KeepMode设置为0，并自己执行chmod。

它似乎已经reported和作者正在修复，但它在2009-05-20和“本周末”2010-04-14“很快”。