| line |
true |
false |
branch |
|
242
|
0 |
0 |
unless open $ph, "$command 2>>errors.log |" |
|
248
|
0 |
0 |
if ($line =~ /^\s*status\:\s*(.*?)\s*$/i) |
|
250
|
0 |
0 |
if ($status eq 'ok') { } |
|
|
0 |
0 |
elsif ($status eq 'error') { } |
|
|
0 |
0 |
elsif ($status eq 'reject') { } |
|
261
|
0 |
0 |
if open $ph, '>>errors.log' |
|
269
|
0 |
0 |
if (defined $line) |
|
275
|
0 |
0 |
if open $ph, '>>errors.log' |
|
323
|
0 |
0 |
unless sysopen $fh, $file, 66, 420 |
|
325
|
0 |
0 |
unless flock $fh, 2 |
|
328
|
0 |
0 |
defined $line && $line =~ /(\d+)/ ? : |
|
329
|
0 |
0 |
unless seek $fh, 0, 0 |
|
332
|
0 |
0 |
unless print $fh $sline |
|
334
|
0 |
0 |
unless truncate $fh, length $sline |
|
353
|
0 |
0 |
$file =~ s/\.ctl$/.dat/ ? : |
|
387
|
0 |
0 |
if $$self{'maxsize'} and $size > $$self{'maxsize'} |
|
389
|
0 |
0 |
unless print $fh $buf |
|
392
|
0 |
0 |
unless defined $len |
|
419
|
0 |
0 |
unless print $fh $d->Dump |
|
447
|
0 |
0 |
if (ref $file eq 'HASH') { } |
|
450
|
0 |
0 |
unless ($fh) |
|
452
|
0 |
0 |
unless open $fh, "<$file" |
|
456
|
0 |
0 |
unless defined $contents |
|
459
|
0 |
0 |
if $@ |
|
460
|
0 |
0 |
unless defined $ctrl and ref $ctrl eq 'HASH' |
|
467
|
0 |
0 |
unless @$clisa |
|
489
|
0 |
0 |
unless exists $$attr{'loop-timeout'} |
|
490
|
0 |
0 |
unless exists $$attr{'loop-child'} |
|
493
|
0 |
0 |
unless my $sdir = $$self{'spool-dir'} |
|
496
|
0 |
0 |
unless my $admin = $$self{'admin'} |
|
502
|
0 |
0 |
unless open $fh, ">$file" and close $fh and unlink $file |
|
505
|
0 |
0 |
unless exists $$self{'expiretime'} |
|
506
|
0 |
0 |
unless exists $$self{'processtimeout'} |
|
507
|
0 |
0 |
unless exists $$self{'queuetime'} |
|
508
|
0 |
0 |
unless exists $$self{'maxsize'} |
|
530
|
0 |
0 |
unless opendir $dh, 'File::Spec'->curdir |
|
534
|
0 |
0 |
unless defined $dfile |
|
555
|
0 |
0 |
unless chdir $$self{'spool-dir'} |
|
565
|
0 |
0 |
unless ($seq) |
|
587
|
0 |
0 |
unless open $dtfh, ">$dtfile" |
|
594
|
0 |
0 |
unless open $ctfh, ">$ctfile" |
|
598
|
0 |
0 |
unless rename $dtfile, $dfile |
|
600
|
0 |
0 |
unless rename $ctfile, $cfile |
|
624
|
0 |
0 |
if (my $tf = delete((shift())->{'tmpfiles'})) |
|
631
|
0 |
0 |
unless chdir $$self{'spool-dir'} |
|
640
|
0 |
0 |
$hash ? : |
|
652
|
0 |
0 |
unless open $cfh, "<$cfile" |
|
653
|
0 |
0 |
unless flock $cfh, 2 |
|
659
|
0 |
0 |
if $timeout |
|
660
|
0 |
0 |
if $timeout |
|
661
|
0 |
0 |
if ($$spooler{'spool-command'}) { } |
|
666
|
0 |
0 |
if $timeout |
|
668
|
0 |
0 |
if ($@) { } |
|
671
|
0 |
0 |
defined $result ? : |