Steffen Mueller <[email protected]> writes: > Okay, that's hardly surprising. I'll fix this now.
The fix in v0.41 is like this:
if ( File::Copy::copy($file, $dist) ) {
die "Cannot copy $file: $!";
}
unlink $file;
unfortunately it is not same like:
unlink $file if File::Copy::copy($file,$dist) or die "Cannot copy $file: $!";
Could be
if ( File::Copy::copy($file, $dist) ) {
unlink $file;
} else {
die "Cannot copy $file: $!";
}
--
Radek
