Как скопировать каталог только для чтения в 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.