Leser: 16
1 2 3
open(my $fh1, "+<", "BLAH") or return; # <---- dazwischen Race Condition möglich? flock($fh1, LOCK_EX);
1 2 3
sysopen(my $fh, "BLAH", O_RDWR) or return; # <---- dazwischen Race Condition möglich? flock($fh, LOCK_EX);
1 2 3 4 5 6 7 8
my $numlinks = (stat( "BLAH"))[3]; # <---- dazwischen Race Condition möglich? if ($numlinks == 0) { # <---- dazwischen Race Condition möglich? open(my $fh, "+<", "BLAH") or return; # <---- dazwischen Race Condition möglich? flock($fh, LOCK_EX); }
1 2 3 4 5 6
if (-l "BLAH") { # <---- dazwischen Race Condition möglich? open(my $fh, "+<", "BLAH") or return; # <---- dazwischen Race Condition möglich? flock($fh, LOCK_EX); }
2011-02-15T13:58:31 topeg[...]
Unter Linux gibt es, wenn ich mich richtig erinnere, eine Möglichkeit Code Blöcke, die nicht unterbrochen werden sollen zu markieren.
[...]
2011-02-15T12:06:53 GwenDragonCode (perl): (dl )1 2 3open(my $fh1, "+<", "BLAH") or return; # <---- dazwischen Race Condition möglich? flock($fh1, LOCK_EX);