| line |
true |
false |
branch |
|
27
|
0 |
22 |
if $ENV{'NARADA_SKIP_LOCK'} |
|
28
|
0 |
22 |
unless sysopen $F_lock, '.lock', 64 |
|
30
|
0 |
22 |
if -e '.lock.new' |
|
31
|
22 |
0 |
if flock $F_lock, 5 |
|
32
|
0 |
0 |
unless $!{'EWOULDBLOCK'} |
|
34
|
0 |
0 |
if defined $timeout and ($timeout -= 0.1) < 0.1 |
|
41
|
0 |
28 |
if $ENV{'NARADA_SKIP_LOCK'} |
|
42
|
0 |
28 |
unless sysopen $F_lock, '.lock', 65 |
|
44
|
28 |
0 |
if flock $F_lock, 6 |
|
45
|
0 |
0 |
unless $!{'EWOULDBLOCK'} |
|
46
|
0 |
0 |
unless system('touch', '.lock.new') == 0 |
|
49
|
0 |
28 |
unless system('touch', '.lock.new') == 0 |
|
54
|
0 |
22 |
if $ENV{'NARADA_SKIP_LOCK'} |
|
60
|
0 |
22 |
if $ENV{'NARADA_SKIP_LOCK'} |
|
61
|
22 |
0 |
if ($F_lock) |
|
62
|
0 |
22 |
unless flock $F_lock, 8 |
|
69
|
0 |
0 |
if $ENV{'NARADA_SKIP_LOCK'} |
|
70
|
0 |
0 |
if ($F_lock) |
|
71
|
0 |
0 |
$is_inherit ? : |
|
|
0 |
0 |
unless fcntl $F_lock, 2, $is_inherit ? 0 : 1 |