| line |
true |
false |
branch |
|
27
|
0 |
10 |
if (-f $rootdir and not -d $rootdir) |
|
45
|
0 |
15 |
unless _validate_dir($dir) |
|
54
|
0 |
117 |
if $P |
|
55
|
5 |
112 |
if (defined $timeout and &Time::HiRes::time() > $expire) |
|
57
|
0 |
5 |
if $P |
|
61
|
1 |
111 |
if (&Time::HiRes::time() > $last_check + $HEARTBEAT_CHECK) |
|
62
|
0 |
1 |
if $P |
|
69
|
0 |
10 |
if $P |
|
77
|
0 |
4 |
unless _validate_dir($dir) |
|
86
|
0 |
35 |
if $P |
|
87
|
1 |
34 |
if (defined $timeout and &Time::HiRes::time() > $expire) |
|
89
|
0 |
1 |
if $P |
|
93
|
0 |
34 |
if (&Time::HiRes::time() > $last_check + $HEARTBEAT_CHECK) |
|
94
|
0 |
0 |
if $P |
|
101
|
0 |
3 |
if $P |
|
111
|
1 |
4 |
if ($op & 4) |
|
114
|
3 |
2 |
if ($op & 2) |
|
117
|
0 |
2 |
if ($op & 1) |
|
120
|
2 |
0 |
if ($op & 8) |
|
130
|
1 |
13 |
unless (defined $LOCK{$dir}) |
|
131
|
0 |
1 |
if &__inGD() |
|
138
|
0 |
13 |
unless (defined $filename) |
|
139
|
0 |
0 |
if &__inGD() |
|
144
|
0 |
13 |
if $_DEBUG |
|
145
|
0 |
13 |
unless (-f $filename) |
|
146
|
0 |
0 |
if &__inGD() |
|
153
|
13 |
0 |
if ($z) |
|
154
|
0 |
13 |
if $_DEBUG |
|
155
|
0 |
13 |
if $_DEBUG |
|
159
|
0 |
0 |
if &__inGD() |
|
173
|
0 |
0 |
unless $ok |
|
180
|
0 |
0 |
unless $ok |
|
188
|
0 |
0 |
unless ($ok or &__inGD()) |
|
201
|
0 |
0 |
unless (lock_ex($dir, $timeout)) |
|
206
|
0 |
0 |
if (wantarray) { } |
|
212
|
0 |
0 |
if ($@) |
|
216
|
0 |
0 |
wantarray ? : |
|
221
|
0 |
0 |
unless (lock_sh($dir, $timeout)) |
|
226
|
0 |
0 |
if (wantarray) { } |
|
232
|
0 |
0 |
if ($@) |
|
236
|
0 |
0 |
wantarray ? : |
|
243
|
0 |
0 |
unless $ENV{'HOSTNAME'} or $^O eq 'MSWin32' and $ENV{'COMPUTERNAME'} |
|
248
|
0 |
371 |
$INC{'threads.pm'} ? : |
|
266
|
0 |
166 |
if ($excl) |
|
269
|
166 |
0 |
if @f1 > 0 |
|
275
|
0 |
1 |
unless $file |
|
280
|
0 |
1 |
if $_DEBUG |
|
281
|
0 |
1 |
if $_DEBUG |
|
288
|
1 |
0 |
if ($host eq _host() or $host eq 'localhost') { } |
|
293
|
0 |
1 |
if $_DEBUG |
|
298
|
0 |
0 |
if $_DEBUG |
|
301
|
1 |
0 |
if (not $status) |
|
320
|
0 |
19 |
unless (-d $dir) |
|
325
|
0 |
0 |
if (not -r $dir and -w $dir and -x $dir) |
|
335
|
14 |
0 |
if (defined ${^GLOBAL_PHASE}) { } |
|
336
|
0 |
1 |
if %{^GLOBAL_PHASE} eq 'DESTRUCT' |