Fix to copy links first, no matter if dir or file

This commit is contained in:
Ilia Rostovtsev
2021-11-21 17:52:44 +03:00
parent 458725a737
commit cf0cf19812

View File

@@ -7078,6 +7078,12 @@ if ($gconfig{'os_type'} eq 'windows') {
$err = $out;
}
}
elsif (-l $src && !$copylink) {
# A link .. re-create
my $linkdst = readlink($src);
$ok = &symlink_logged($linkdst, $dst);
$err = $ok ? undef : $!;
}
elsif (-d $src) {
# A directory .. need to copy with tar command
my @st = stat($src);
@@ -7090,12 +7096,6 @@ elsif (-d $src) {
$err = $out;
}
}
elsif (-l $src && !$copylink) {
# A link .. re-create
my $linkdst = readlink($src);
$ok = &symlink_logged($linkdst, $dst);
$err = $ok ? undef : $!;
}
else {
# Can just copy with cp
my $out = &backquote_logged("cp -p ".quotemeta($src).