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

with the new structure of allowing symlinks in Replacements.
This commit is contained in:
freesource
2001-11-15 07:48:23 +00:00
parent c25f039c0c
commit 8604aa6dd0
+35 -5
View File
@@ -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");
}
}
}
}