Comment copier un répertoire en lecture seule en Perl?

Question

J'utilise File::Copy::Recursive::dircopy($original_dirname, $new_dirname) or die $!; pour copier un répertoire en lecture seule à partir d'un script Perl. J'obtiens une erreur Permission denied.

Je peux voir que $new_dirname est créé, mais est marqué en lecture seule (comme le répertoire d'origine). Peut-être que cela empêche le contenu d'y être copié? ..

Answer 1

Oui, cela semble définitivement être un bug dans File::Copy::Recursive. Un travail temporaire consiste à définir $File::Copy::Recursive::KeepMode à 0 et à faire le chmod vous-même.

Il semble avoir déjà été reported et l'auteur travaille sur un correctif, mais il arrivait «bientôt» le 2009-05-20 et «ce week-end» le 2010-04-14.