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. 30
      BootRoot/Yard.pm

30
BootRoot/Yard.pm

@ -1210,10 +1210,25 @@ sub copy_strip_file {
} }
} }
else { # fallback just in case else { # fallback just in case
# Normal copy, no strip # 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"); info(1, "Copying $from to $to\n");
sys("cp -a $from $to"); sys("cp -a $from $to");
} }
}
}
# Copy file perms and owner # Copy file perms and owner
## non-root users will experience problems here so this is ## non-root users will experience problems here so this is
@ -1240,10 +1255,25 @@ sub copy_strip_file {
} }
else { else {
# Normal copy, no strip # 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"); info(1, "Copying $from to $to\n");
sys("cp -a $from $to"); sys("cp -a $from $to");
} }
}
}
} }

Loading…
Cancel
Save