| line |
true |
false |
branch |
|
20
|
0 |
0 |
if (defined $port and $port != 22) |
|
25
|
0 |
0 |
unless open my $fh, '<', $hostfile |
|
32
|
0 |
0 |
unless $keyblob |
|
38
|
0 |
0 |
if $@ |
|
43
|
0 |
0 |
if (index($hosts, '|') == 0) |
|
44
|
0 |
0 |
unless ($hosts =~ /^\|1\|(.+?)\|/) |
|
56
|
0 |
0 |
if ($h eq $checkhost and $key->ssh_name eq $fkey->ssh_name) |
|
57
|
0 |
0 |
$key->equal($fkey) ? : |
|
69
|
0 |
0 |
if ($host =~ /[a-zA-Z]+/) |
|
72
|
0 |
0 |
if (defined $port and $port != 22) |
|
77
|
0 |
0 |
unless open my $fh, '<', $hostfile |
|
85
|
0 |
0 |
if $ip |
|
89
|
0 |
0 |
if (index($hosts, '|') == 0) |
|
90
|
0 |
0 |
unless ($hosts =~ /^\|1\|(.+?)\|/) |
|
101
|
0 |
0 |
if ($h eq $checkhost) |
|
104
|
0 |
0 |
if $fkey |
|
110
|
0 |
0 |
wantarray ? : |
|
115
|
0 |
0 |
unless (-e $hostfile) |
|
118
|
0 |
0 |
unless (-d $dir) |
|
120
|
0 |
0 |
unless File::Path::mkpath([$dir]) |
|
126
|
0 |
0 |
if ($host =~ /[a-zA-Z]+/) |
|
128
|
0 |
0 |
if $ip and defined $port and $port != 22 |
|
130
|
0 |
0 |
if defined $port and $port != 22 |
|
133
|
0 |
0 |
unless open my $fh, '>>', $hostfile |
|
134
|
0 |
0 |
if ($hash_flag) { } |
|
137
|
0 |
0 |
if $ip |
|
146
|
0 |
0 |
if $ip |
|
150
|
0 |
0 |
unless close $fh |
|
155
|
0 |
0 |
unless -e $hostfile |
|
158
|
0 |
0 |
if ($host =~ /[a-zA-Z]+/) |
|
160
|
0 |
0 |
if $ip and defined $port and $port != 22 |
|
162
|
0 |
0 |
if defined $port and $port != 22 |
|
164
|
0 |
0 |
unless open my $fh, '<', $hostfile |
|
165
|
0 |
0 |
unless open my $fhw, '>', "$hostfile.new" |
|
176
|
0 |
0 |
if ($@) |
|
182
|
0 |
0 |
if $ip |
|
186
|
0 |
0 |
if (index($hosts, '|') == 0) |
|
187
|
0 |
0 |
unless ($hosts =~ /^\|1\|(.+?)\|/) |
|
199
|
0 |
0 |
if ($h eq $checkhost and $key->equal($fkey)) |
|
206
|
0 |
0 |
unless close $fhw |
|
207
|
0 |
0 |
unless close $fh |