| line |
true |
false |
branch |
|
126
|
248 |
0 |
if (defined $fh and ref $fh eq "GLOB") |
|
128
|
138 |
0 |
if ($files{$_}{'fh'} eq $fh) |
|
129
|
138 |
0 |
if $rv = $_ |
|
154
|
268 |
0 |
if (defined $filename) |
|
157
|
10 |
258 |
if (ref $filename eq 'GLOB') { } |
|
161
|
215 |
43 |
if exists $files{$filename} |
|
165
|
221 |
47 |
if (defined $fh and fileno $fh) |
|
171
|
262 |
6 |
if (defined $filename) |
|
177
|
0 |
268 |
unless $rv |
|
199
|
57 |
0 |
unless @files |
|
201
|
0 |
16 |
unless pclose($_) |
|
227
|
259 |
0 |
if (defined $filename) |
|
231
|
2 |
257 |
unless defined $mode |
|
232
|
108 |
151 |
unless defined $perms |
|
233
|
0 |
259 |
unless (&detaint(\$mode, "int")) |
|
238
|
0 |
259 |
unless (&detaint(\$perms, "int")) |
|
253
|
259 |
0 |
if ($rv) |
|
254
|
259 |
0 |
if (&detaint(\$filename, 'filename', \$f)) { } |
|
261
|
137 |
122 |
$tmp{'mode'} & 64 ? : |
|
262
|
219 |
40 |
if ($rv) { } |
|
297
|
22 |
0 |
if (defined $filename and exists $files{$filename}) |
|
304
|
22 |
0 |
fileno $fh ? : |
|
309
|
22 |
0 |
if (pclose($filename)) |
|
312
|
22 |
0 |
if $tmp{'mode'} & 704 |
|
316
|
22 |
0 |
if ($rv) |
|
325
|
22 |
0 |
if $filename ne $tmp{'real'} |
|
356
|
57586 |
0 |
if (defined $filename) |
|
357
|
182 |
57404 |
if (ref $filename eq 'GLOB') { } |
|
361
|
57167 |
237 |
if exists $files{$filename} |
|
365
|
57293 |
293 |
if (defined $filename and exists $files{$filename}) { } |
|
|
237 |
56 |
elsif (defined $filename) { } |
|
|
56 |
0 |
elsif (not defined $filename and defined $fh) { } |
|
368
|
57271 |
22 |
if ($files{$filename}{'pid'} == $$) { } |
|
370
|
57271 |
0 |
if (fileno $fh) { } |
|
381
|
0 |
0 |
if _reopen($filename) |
|
388
|
22 |
0 |
if _reopen($filename) |
|
395
|
197 |
40 |
if _open($filename, $mode, $perms) |
|
401
|
52 |
4 |
fileno $fh ? : |
|
427
|
0 |
0 |
unless @files |
|
428
|
0 |
0 |
unless _reopen($_) |
|
450
|
4106 |
0 |
if (defined $filename) |
|
453
|
36 |
4070 |
if (ref $filename eq 'GLOB') { } |
|
457
|
4070 |
0 |
if exists $files{$filename} |
|
460
|
4106 |
0 |
if (defined $fh) |
|
467
|
4106 |
0 |
if ($rv) { } |
|
468
|
4074 |
32 |
if (defined $filename and exists $files{$filename}) { } |
|
478
|
0 |
0 |
$lock & 4 ? : |
|
510
|
20 |
31124 |
if ref $filename eq "GLOB" |
|
514
|
31128 |
0 |
if defined $filename and exists $files{$filename} |
|
515
|
31128 |
16 |
if (defined $ll) { } |
|
522
|
1276 |
29852 |
unless exists $lstack{$filename} |
|
527
|
0 |
31128 |
if defined $lsl and $lsl != $ll |
|
536
|
15301 |
15827 |
if ($rl == 8) { } |
|
|
11982 |
3845 |
elsif ($rl == 1) { } |
|
|
3845 |
0 |
elsif ($rl == 2) { } |
|
541
|
14047 |
1254 |
if (scalar @$stack) { } |
|
545
|
0 |
14047 |
if ($ll != $stack->[-1]) |
|
563
|
10280 |
1702 |
if (defined $lsl and $lsl == 2) |
|
568
|
11350 |
632 |
$ll == $rl ? : |
|
569
|
11982 |
0 |
if $rv |
|
573
|
3201 |
644 |
$ll == $rl ? : |
|
579
|
29874 |
1254 |
if (scalar @$stack) { } |
|
581
|
28598 |
1276 |
if ($ll == $stack->[-1]) { } |
|
592
|
1254 |
29874 |
unless scalar @$stack |
|
595
|
16 |
0 |
if (defined $fh and not defined $filename) { } |
|
629
|
32704 |
0 |
if (defined $filename) |
|
631
|
31144 |
1560 |
PIOLOCKSTACK() ? : |
|
656
|
0 |
0 |
if (defined $filename) |
|
659
|
0 |
0 |
if ref $filename eq "GLOB" |
|
660
|
0 |
0 |
if (defined $filename and exists $files{$filename}) { } |
|
691
|
592 |
0 |
if (defined $filename) |
|
694
|
588 |
4 |
if (defined $fh) |
|
696
|
0 |
588 |
unless $rv |
|
724
|
11755 |
0 |
if (defined $filename) |
|
727
|
11751 |
4 |
if (defined $fh) |
|
728
|
0 |
11751 |
unless defined $whence |
|
730
|
2 |
11749 |
unless $rv |
|
756
|
2320 |
4 |
defined $out ? : |
|
763
|
2316 |
8 |
if (defined $filename and defined $out and length $out) |
|
770
|
2316 |
0 |
if (defined $fh) |
|
771
|
2316 |
0 |
if ($nolock or pflock($filename, 2)) |
|
772
|
383 |
1933 |
unless defined $wlen |
|
773
|
387 |
1929 |
unless defined $offset |
|
775
|
2316 |
0 |
if (defined $rv) { } |
|
782
|
2316 |
0 |
unless $nolock |
|
828
|
520 |
0 |
if (defined $filename and defined $out and length $out) |
|
834
|
520 |
0 |
if (defined $fh) |
|
837
|
520 |
0 |
if ($nolock or pflock($filename, 2)) |
|
843
|
520 |
0 |
if ($pos and sysseek $fh, 0, 2) |
|
846
|
520 |
0 |
unless defined $wlen |
|
847
|
520 |
0 |
unless defined $offset |
|
849
|
520 |
0 |
if (defined $rv) { } |
|
862
|
520 |
0 |
unless $nolock |
|
906
|
9408 |
0 |
if (defined $filename) |
|
913
|
9402 |
6 |
if (defined $fh) |
|
914
|
9402 |
0 |
if ($nolock or pflock($filename, 1)) |
|
915
|
421 |
8981 |
unless defined $rlen |
|
916
|
9402 |
0 |
unless defined $offset |
|
918
|
9398 |
4 |
if (defined $rv) { } |
|
925
|
9400 |
2 |
unless $nolock |
|
966
|
2 |
0 |
if (defined $filename) |
|
967
|
2 |
0 |
unless defined $pos |
|
971
|
2 |
0 |
if (defined $fh) |
|
972
|
2 |
0 |
if ($nolock or pflock($filename, 2)) |
|
975
|
2 |
0 |
if ($rv) { } |
|
976
|
0 |
2 |
if $cpos > $pos |
|
981
|
2 |
0 |
unless $nolock |