646b892680
Some checks failed
Periodic Merges (6h) / master → staging-nixos (push) Failing after 12m50s
Periodic Merges (6h) / master → staging-next (push) Failing after 12m54s
Periodic Merges (24h) / merge-base(master,staging) → haskell-updates (push) Failing after 11m54s
Periodic Merges (6h) / staging-next → staging (push) Failing after 12m13s
Periodic Merges (24h) / staging-next-25.05 → staging-25.05 (push) Failing after 13m24s
Periodic Merges (24h) / release-25.05 → staging-next-25.05 (push) Failing after 14m28s
24 lines
708 B
Diff
24 lines
708 B
Diff
Index: storeBackup/lib/fileDir.pl
|
|
===================================================================
|
|
--- storeBackup.orig/lib/fileDir.pl
|
|
+++ storeBackup/lib/fileDir.pl
|
|
@@ -21,7 +21,7 @@
|
|
|
|
|
|
use Digest::MD5 qw(md5_hex);
|
|
-use Fcntl qw(O_RDWR O_CREAT);
|
|
+use Fcntl qw(O_RDWR O_CREAT O_WRONLY O_EXCL);
|
|
use Fcntl ':mode';
|
|
use POSIX;
|
|
use Cwd 'abs_path';
|
|
@@ -482,7 +482,7 @@ sub checkLockFile
|
|
'-str' => ["creating lock file <$lockFile>"]);
|
|
|
|
&::checkDelSymLink($lockFile, $prLog, 0x01);
|
|
- open(FILE, '>', $lockFile) or
|
|
+ sysopen(FILE, $lockFile, O_WRONLY | O_CREAT | O_EXCL) or
|
|
$prLog->print('-kind' => 'E',
|
|
'-str' => ["cannot create lock file <$lockFile>"],
|
|
'-exit' => 1);
|
|
|