| Subject: | dircopy fails if symlink exists |
File-Copy-Recursive-0.38
Perl v5.8.8
If you are using dircopy() and $File::Copy::Recursive::CopyLink = 1 and
a symbolic link already exists in the target directory, then dircopy()
will return when it gets to the symbolic link and not copy anything else.
This happens at the line:
symlink readlink($org), $new or return;
A quick fix might be to next instead of return.
Ideally, it would be good to have options to define the behaviour.
E.g., remove the existing link if it is different to the one being copied.