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