$file_new .= '.cp-update.new'; # our .new file
$file_old .= '.cp-update.old'; # our .old file
# write content in new file in single write op
- sysopen ($FileHandle, $file_new, O_CREAT|O_TRUNC|O_WRONLY)
+ sysopen ($FileHandle, $file_new, O_CREAT|O_TRUNC|O_WRONLY, (stat($File))[2])
or die "$ProgramName: Failed to open file '$File' for writing ($!)\n";
if (length($newContent)) {
my $wb = syswrite($FileHandle, $newContent);