| line |
true |
false |
branch |
|
27
|
0 |
0 |
unless @p == 2 |
|
30
|
0 |
0 |
unless ($txt = {'u', 'UNKNOWN-ERROR', 'h', 'HIDDEN-USER', 'n', 'NO-USER', 'i', 'INVALID-PORT'}->{$type}) |
|
41
|
0 |
0 |
unless $os_name eq 'ERROR' |
|
56
|
0 |
0 |
if ($found =~ /^JP:(.+)/) |
|
65
|
0 |
0 |
if ($found < 0) |
|
66
|
0 |
0 |
unless open my $tcp, '<', '/proc/net/tcp' |
|
68
|
0 |
0 |
if (/^\s+\d+:\s+([A-F0-9]{8}):([A-F0-9]{4})\s+([A-F0-9]{8}):([A-F0-9]{4})\s+(\d+)\s+\S+\s+\S+\s+\S+\s+(\d+)/) |
|
71
|
0 |
0 |
if ($state == 1) |
|
75
|
0 |
0 |
if ($local_port eq $lp and $rem_port eq $rp) |
|
85
|
0 |
0 |
if ($found < 0) |
|
92
|
0 |
0 |
unless ($name =~ /\w/) |
|
130
|
0 |
0 |
unless $input |
|
133
|
0 |
0 |
unless ($input =~ /^\s*(\d+)\s*,\s*(\d+)\s*$/) |
|
145
|
0 |
0 |
if ($@ eq "\a\a\a\a\a\n") { } |
|
|
0 |
0 |
elsif ($@) { } |