Browse Source

If Replacements are symlinks, the actual file linked to is copied, this helps

with the new structure of allowing symlinks in Replacements.
master
freesource 23 years ago
parent
commit
8604aa6dd0
  1. 40
      BootRoot/Yard.pm

40
BootRoot/Yard.pm

@ -1210,9 +1210,24 @@ sub copy_strip_file {
}
}
else { # fallback just in case
# Normal copy, no strip
info(1, "Copying $from to $to\n");
sys("cp -a $from $to");
# Normal copy, no strip
if ( $from !~ m,/Replacements/, ) {
info(1, "Copying $from to $to\n");
sys("cp -a $from $to");
}
else {
if ( !-l $from ) {
info(1, "Copying $from to $to\n");
sys("cp -a $from $to");
}
else {
$from = readlink($from);
info(1, "Copying $from to $to\n");
sys("cp -a $from $to");
}
}
}
# Copy file perms and owner
@ -1240,9 +1255,24 @@ sub copy_strip_file {
}
else {
# Normal copy, no strip
info(1, "Copying $from to $to\n");
sys("cp -a $from $to");
if ( $from !~ m,/Replacements/, ) {
info(1, "Copying $from to $to\n");
sys("cp -a $from $to");
}
else {
if ( !-l $from ) {
info(1, "Copying $from to $to\n");
sys("cp -a $from $to");
}
else {
$from = readlink($from);
info(1, "Copying $from to $to\n");
sys("cp -a $from $to");
}
}
}
}

Loading…
Cancel
Save