| line |
true |
false |
branch |
|
149
|
0 |
0 |
unless defined $$args{'FH'} or defined $$args{'NAME'} |
|
152
|
0 |
0 |
if ($$args{'FH'}) { } |
|
|
0 |
0 |
elsif ($$args{'NAME'}) { } |
|
153
|
0 |
0 |
if $$args{'LOCK_STYLE'} ne 'flock' |
|
155
|
0 |
0 |
if $$args{'SECURE_OPEN'} |
|
162
|
0 |
0 |
unless $fh = $File_Cache{$$args{'NAME'}} |
|
168
|
0 |
0 |
if $$fh{'IN_USE'} |
|
170
|
0 |
0 |
unless $retval = &__lock($fh) |
|
173
|
0 |
0 |
unless $fh = $File_Cache{$$args{'NAME'}} |
|
179
|
0 |
0 |
if $$fh{'IN_USE'} |
|
185
|
0 |
0 |
if ($$fh{'FH'}) { } |
|
187
|
0 |
0 |
if $$args{'SECURE_OPEN'} > $$fh{'SECURE_OPEN'} |
|
192
|
0 |
0 |
if $oldmode != $newmode |
|
198
|
0 |
0 |
unless $$fh{'FH'} = __open($$fh{'NAME'}, $$fh{'MODE'}, $$fh{'PERMS'}, $$fh{'SECURE_OPEN'}) |
|
205
|
0 |
0 |
unless ($retval = &__lock($fh)) |
|
215
|
0 |
0 |
if (not defined $$fh{'TIMESTAMP'} or $$fh{'TIMESTAMP'} != $timestamp) |
|
218
|
0 |
0 |
unless seek $$fh{'FH'}, 0, 0 |
|
228
|
0 |
0 |
if $$fh{'PERSIST'} |
|
251
|
0 |
0 |
ref $self ? : |
|
253
|
0 |
0 |
unless $$file{'FH'} |
|
257
|
0 |
0 |
if ($$file{'DIRTY'}) |
|
258
|
0 |
0 |
unless truncate $$file{'FH'}, 0 |
|
259
|
0 |
0 |
unless sysseek $$file{'FH'}, 0, 0 |
|
271
|
0 |
0 |
if $$file{'PERSIST'} |
|
273
|
0 |
0 |
unless CORE::close $$file{'FH'} |
|
275
|
0 |
0 |
if $$file{'FILEHANDLE_PASSED'} |
|
287
|
0 |
0 |
if ($$obj{'FH'}) |
|
288
|
0 |
0 |
unless $retval = $self->close |
|
313
|
0 |
0 |
if ($$obj{'FH'}) |
|
320
|
0 |
0 |
unless exists $Calling_Modules{$caller}{$$self} |
|
343
|
0 |
0 |
unless exists $Calling_Modules{$caller} |
|
349
|
0 |
0 |
unless $ret = &close($_) |
|
464
|
0 |
0 |
if $openmode != 1 and $openmode != 2 |
|
483
|
0 |
0 |
if $openmode != 1 and $openmode != 2 |
|
502
|
0 |
0 |
if (defined $lineno) |
|
503
|
0 |
0 |
unless $lineno =~ /^-?\d+$/ |
|
505
|
0 |
0 |
if $lineno < -1 |
|
508
|
0 |
0 |
if $lineno > $max |
|
546
|
0 |
0 |
if $openmode != 1 and $openmode != 2 |
|
568
|
0 |
0 |
if $openmode != 1 and $openmode != 2 |
|
591
|
0 |
0 |
if $openmode != 1 and $openmode != 2 |
|
593
|
0 |
0 |
unless defined $_[0] |
|
596
|
0 |
0 |
$_[1] ? : |
|
636
|
0 |
0 |
if ($$fh{'LOCK_STYLE'} eq 'flock') |
|
637
|
0 |
0 |
unless flock $$fh{'FH'}, 6 |
|
640
|
0 |
0 |
if ($$fh{'LOCK_STYLE'} eq 'dotlock') |
|
649
|
0 |
0 |
if ($$fh{'LOCK_STYLE'} eq 'flock') |
|
654
|
0 |
0 |
if ($$fh{'LOCK_STYLE'} eq 'dotlock') |
|
655
|
0 |
0 |
unless unlink "$$fh{'NAME'}.lock" |
|
677
|
0 |
0 |
unless sysopen FH, $pidfile, 65, 384 |
|
679
|
0 |
0 |
unless print FH "$$\000" |
|
680
|
0 |
0 |
unless CORE::close FH |
|
685
|
0 |
0 |
unless (sysopen FH, $lockfile, 0) |
|
691
|
0 |
0 |
unless CORE::close FH |
|
693
|
0 |
0 |
if (kill 0, $pid) |
|
714
|
0 |
0 |
unless (undef, undef, undef, $nlink) = stat $file |
|
717
|
0 |
0 |
if $nlink == 2 |
|
731
|
0 |
0 |
unless sysopen $fh, $file_path, $mode, $perms |
|
734
|
0 |
0 |
if ($secure) |
|
735
|
0 |
0 |
unless $ret = &__checkpath($file_path) |
|
746
|
0 |
0 |
if ($chopped[0]) |
|
756
|
0 |
0 |
$path =~ m[^/$] ? : |
|
759
|
0 |
0 |
if $uid != 0 or $gid != 0 |
|
762
|
0 |
0 |
if $mode & 2 |