| line |
true |
false |
branch |
|
37
|
0 |
4 |
unless defined $host |
|
43
|
0 |
4 |
unless $ssh->{'_test'} |
|
53
|
0 |
0 |
$proto == &PROTOCOL_SSH2() ? : |
|
88
|
0 |
0 |
if ($version =~ /$re/) |
|
103
|
0 |
4 |
if ($^O eq 'MSWin32') |
|
120
|
0 |
4 |
delete $arg{'sys_config'} || $^O eq 'MSWin32' ? : |
|
125
|
0 |
4 |
if (my $proto = delete $arg{'protocol'}) |
|
144
|
3 |
1 |
if (my $real_host = $ssh->{'config'}->get('hostname')) |
|
149
|
4 |
0 |
if ($user and $user eq 'root' and not defined $ssh->{'config'}->get('privileged')) |
|
154
|
4 |
0 |
unless ($ssh->{'config'}->get('protocol')) |
|
159
|
4 |
0 |
unless (defined $ssh->{'config'}->get('password_prompt_login')) |
|
162
|
4 |
0 |
unless (defined $ssh->{'config'}->get('password_prompt_host')) |
|
165
|
4 |
0 |
unless (defined $ssh->{'config'}->get('number_of_password_prompts')) |
|
184
|
0 |
0 |
$host =~ /(.+)@(.+)/ ? : |
|
190
|
0 |
0 |
if $err |
|
198
|
0 |
0 |
if ($x =~ /^y/i) |
|
209
|
0 |
0 |
unless defined $raddr |
|
212
|
0 |
0 |
if ($rport =~ /\D/) |
|
217
|
0 |
0 |
unless connect $sock, sockaddr_in($rport, $raddr) |
|
225
|
0 |
0 |
if ($^O eq 'MSWin32') { } |
|
230
|
0 |
0 |
unless defined $sock->blocking(0) |
|
242
|
0 |
0 |
if $ssh->{'config'}->get('privileged') |
|
246
|
0 |
0 |
if $addr |
|
247
|
0 |
0 |
if $addr and not $p |
|
251
|
0 |
0 |
unless socket $sock, 2, 1, getprotobyname 'tcp' || 0 |
|
254
|
0 |
0 |
if not $p or bind $sock, sockaddr_in($p, $addr) |
|
255
|
0 |
0 |
if ($! =~ /Address already in use/i) |
|
256
|
0 |
0 |
unless close $sock |
|
261
|
0 |
0 |
if ($p) |
|
286
|
0 |
0 |
unless (defined $len) |
|
287
|
0 |
0 |
if $!{'EAGAIN'} or $!{'EWOULDBLOCK'} |
|
290
|
0 |
0 |
if $len == 0 |
|
292
|
0 |
0 |
if substr($line, 0, 4) eq 'SSH-' and length $line > 255 |
|
294
|
0 |
0 |
if length $line > 4096 |
|
295
|
0 |
0 |
if $buf eq "\n" |
|
323
|
0 |
0 |
if ($remote_major == 1) { } |
|
|
0 |
0 |
elsif ($remote_major == 2) { } |
|
324
|
0 |
0 |
if ($remote_minor == 99 and $proto & &PROTOCOL_SSH2() and not $proto & &PROTOCOL_SSH1_PREFERRED()) { } |
|
|
0 |
0 |
elsif (not $proto & &PROTOCOL_SSH1()) { } |
|
336
|
0 |
0 |
if ($proto & &PROTOCOL_SSH2()) |
|
340
|
0 |
0 |
if ($mismatch) |
|
341
|
0 |
0 |
$proto & &PROTOCOL_SSH2() ? : |
|
346
|
0 |
0 |
$compat20 ? : |
|
|
0 |
0 |
$compat20 ? : |
|
359
|
0 |
8 |
if ($ssh->{'config'}->get('debug')) |
|
360
|
0 |
0 |
$Net::SSH::Perl::HOSTNAME ? : |
|
367
|
0 |
1 |
unless (defined $ssh->{'config'}->get('user')) |
|
368
|
0 |
0 |
defined $user ? : |
|
371
|
0 |
1 |
if (not defined $pass and exists $Net::SSH::Perl::CONFIG->{'ssh_password'}) |
|
384
|
0 |
0 |
unless (exists $ssh->{'session'}{'incoming_data'}) |
|
385
|
0 |
0 |
$ssh->protocol == &PROTOCOL_SSH2() ? : |
|
392
|
0 |
0 |
if @_ and not defined $ssh->{'session'}{'id'} |
|
408
|
0 |
0 |
if (defined $port and $port =~ /\D/) |
|
415
|
0 |
0 |
unless defined $check_ip |
|
418
|
0 |
0 |
unless (defined $status and $status == &HOST_OK() || $status == &HOST_CHANGED()) |
|
422
|
0 |
0 |
if ($status == &HOST_OK()) { } |
|
|
0 |
0 |
elsif ($status == &HOST_NEW()) { } |
|
426
|
0 |
0 |
if ($strict_host_key_checking =~ /(ask|yes)/) |
|
427
|
0 |
0 |
unless ($ssh->{'config'}->get('interactive')) |
|
434
|
0 |
0 |
unless (_read_yes_or_no($prompt, 'yes')) |
|
445
|
0 |
0 |
unless $check_ip and $host =~ /[a-z][A-Z]+/ |
|
446
|
0 |
0 |
unless my $ip = inet_ntoa(inet_aton($host)) |
|
449
|
0 |
0 |
unless (defined $status and $status == &HOST_OK() || $status == &HOST_CHANGED()) |
|
452
|
0 |
0 |
if ($status == &HOST_NEW()) { } |
|
|
0 |
0 |
elsif ($status == &HOST_CHANGED()) { } |
|
459
|
0 |
0 |
unless (_read_yes_or_no($prompt, 'yes')) |