如何在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 。

它似乎已经被报道 ，作者正在研究修复程序，但是它即将在2009-05-20很快“出现”，并在2010-04-14出现“本周末”。