- Ispravak za cp_mail gdje je zalutao whitespace i uzrokovao blacklisting od

[carnet-tools-cn.git] / cp-update

diff --git a/cp-update b/cp-update
index 01bfe48..5514ee6 100755 (executable)
--- a/cp-update
+++ b/cp-update
@@ -459,7 +459,7 @@ sub actualize() {
     $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);