|
@ -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"); |
|
|
} |
|
|
} |
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|