| line |
true |
false |
branch |
|
59
|
1 |
0 |
unless $$self{'SERVER'} = 'IO::Socket::INET'->new('Proto', 'tcp', 'PeerAddr', 'localhost', 'PeerPort', $port) |
|
190
|
0 |
0 |
unless (length $files_str) |
|
205
|
0 |
0 |
if ($$self{'DEF_EXT'}) |
|
206
|
0 |
0 |
unless ($file =~ /\./) |
|
212
|
0 |
0 |
if (defined $$self{'PATHS'}) |
|
216
|
0 |
0 |
if (-e "$path/$file") |
|
227
|
0 |
0 |
if (-e "$ENV{'PWD'}/$file") |
|
236
|
0 |
0 |
if (-e "$ENV{'PWD'}/prompts/$file") |
|
245
|
0 |
0 |
if (-e "/var/ctserver/USEngM/$file") |
|
262
|
0 |
0 |
unless (length $files_str) |
|
266
|
0 |
0 |
unless ($$self{'EVENT'}) |
|
280
|
0 |
0 |
if ($$self{'DEF_EXT'}) |
|
281
|
0 |
0 |
unless ($file =~ /\./) |
|
287
|
0 |
0 |
if (defined $$self{'PATHS'}) |
|
291
|
0 |
0 |
if (-e "$path/$file") |
|
302
|
0 |
0 |
if (-e "$ENV{'PWD'}/$file") |
|
311
|
0 |
0 |
if (-e "$ENV{'PWD'}/prompts/$file") |
|
320
|
0 |
0 |
if (-e "/var/ctserver/USEngM/$file") |
|
341
|
0 |
0 |
unless ($unpacked_file[0] eq '/') |
|
356
|
0 |
0 |
if (not $$self{'EVENT'}) |
|
410
|
0 |
0 |
unless ($num) |
|
411
|
0 |
0 |
if ($num == 0) |
|
415
|
0 |
0 |
if ($hundreds != 0) |
|
417
|
0 |
0 |
if ($num > 20) |
|
419
|
0 |
0 |
if ($tens != 0) |
|
421
|
0 |
0 |
if ($num != 0) |
|
446
|
0 |
0 |
unless (defined $handle) |
|
453
|
0 |
0 |
if (defined $$self{'DEFEVENT'}{$event}) |
|
546
|
0 |
0 |
if ($port < 0) |
|
589
|
0 |
0 |
unless (defined $conffile) |
|
593
|
0 |
0 |
unless open FILE, "< $conffile" |
|
596
|
0 |
0 |
if ($line =~ /^\s*#/) { } |
|
|
0 |
0 |
elsif ($line =~ /^\s*\[\w+\]/) { } |
|
|
0 |
0 |
elsif ($line =~ /(\w+)=(\w+)/) { } |
|
615
|
0 |
0 |
if ($bool == 1) |
|
617
|
0 |
0 |
unless defined(my $pid = fork) |
|
618
|
0 |
0 |
if $pid |
|
619
|
0 |
0 |
unless setsid() |
|
620
|
0 |
0 |
unless chdir '/' |
|
622
|
0 |
0 |
unless open STDIN, '/dev/null' |
|
623
|
0 |
0 |
unless open STDOUT, '/dev/null' |
|
624
|
0 |
0 |
unless open STDERR, '/dev/null' |
|
641
|
0 |
0 |
if ($$self{'DAEMON'}) { } |