| line |
true |
false |
branch |
|
35
|
0 |
5 |
unless defined $host |
|
41
|
0 |
5 |
unless $ssh->{'_test'} |
|
51
|
0 |
1 |
$proto == &PROTOCOL_SSH2() ? : |
|
86
|
0 |
0 |
if ($version =~ /$re/) |
|
101
|
0 |
5 |
if ($^O eq "MSWin32") |
|
118
|
0 |
5 |
delete $arg{'sys_config'} || $^O eq 'MSWin32' ? : |
|
123
|
0 |
5 |
if (my $proto = delete $arg{'protocol'}) |
|
142
|
3 |
2 |
if (my $real_host = $ssh->{'config'}->get("hostname")) |
|
147
|
5 |
0 |
if ($user and $user eq "root" and not defined $ssh->{'config'}->get("privileged")) |
|
152
|
5 |
0 |
unless ($ssh->{'config'}->get("protocol")) |
|
157
|
5 |
0 |
unless (defined $ssh->{'config'}->get("password_prompt_login")) |
|
160
|
5 |
0 |
unless (defined $ssh->{'config'}->get("password_prompt_host")) |
|
163
|
5 |
0 |
unless (defined $ssh->{'config'}->get("number_of_password_prompts")) |
|
182
|
0 |
0 |
$host =~ /(.+)@(.+)/ ? : |
|
188
|
0 |
0 |
if $err |
|
196
|
0 |
0 |
if ($x =~ /^y/i) |
|
207
|
0 |
0 |
unless defined $raddr |
|
210
|
0 |
0 |
if ($rport =~ /\D/) |
|
215
|
0 |
0 |
unless connect $sock, sockaddr_in($rport, $raddr) |
|
223
|
0 |
0 |
if ($^O eq 'MSWin32') { } |
|
228
|
0 |
0 |
unless defined $sock->blocking(0) |
|
240
|
0 |
0 |
if $ssh->{'config'}->get("privileged") |
|
244
|
0 |
0 |
if $addr |
|
245
|
0 |
0 |
if $addr and not $p |
|
249
|
0 |
0 |
unless socket $sock, 2, 1, getprotobyname 'tcp' || 0 |
|
252
|
0 |
0 |
if not $p or bind $sock, sockaddr_in($p, $addr) |
|
253
|
0 |
0 |
if ($! =~ /Address already in use/i) |
|
254
|
0 |
0 |
unless close $sock |
|
259
|
0 |
0 |
if ($p) |
|
284
|
0 |
0 |
unless (defined $len) |
|
285
|
0 |
0 |
if $!{'EAGAIN'} or $!{'EWOULDBLOCK'} |
|
288
|
0 |
0 |
if $len == 0 |
|
290
|
0 |
0 |
if substr($line, 0, 4) eq "SSH-" and length $line > 255 |
|
292
|
0 |
0 |
if length $line > 4096 |
|
293
|
0 |
0 |
if $buf eq "\n" |
|
321
|
0 |
0 |
if ($remote_major == 1) { } |
|
|
0 |
0 |
elsif ($remote_major == 2) { } |
|
322
|
0 |
0 |
if ($remote_minor == 99 and $proto & &PROTOCOL_SSH2() and not $proto & &PROTOCOL_SSH1_PREFERRED()) { } |
|
|
0 |
0 |
elsif (not $proto & &PROTOCOL_SSH1()) { } |
|
334
|
0 |
0 |
if ($proto & &PROTOCOL_SSH2()) |
|
338
|
0 |
0 |
if ($mismatch) |
|
339
|
0 |
0 |
$proto & &PROTOCOL_SSH2() ? : |
|
344
|
0 |
0 |
$compat20 ? : |
|
|
0 |
0 |
$compat20 ? : |
|
357
|
0 |
11 |
if ($ssh->{'config'}->get("debug")) |
|
358
|
0 |
0 |
$Net::SSH::Perl::HOSTNAME ? : |
|
365
|
0 |
1 |
unless (defined $ssh->{'config'}->get("user")) |
|
366
|
0 |
0 |
defined $user ? : |
|
369
|
0 |
1 |
if (not defined $pass and exists $Net::SSH::Perl::CONFIG->{'ssh_password'}) |
|
382
|
2 |
11 |
unless (exists $ssh->{'session'}{'incoming_data'}) |
|
383
|
0 |
2 |
$ssh->protocol == &PROTOCOL_SSH2() ? : |
|
390
|
0 |
0 |
if @_ and not defined $ssh->{'session'}{'id'} |
|
406
|
0 |
0 |
if (defined $port and $port =~ /\D/) |
|
413
|
0 |
0 |
unless defined $check_ip |
|
416
|
0 |
0 |
unless (defined $status and $status == &HOST_OK() || $status == &HOST_CHANGED()) |
|
420
|
0 |
0 |
if ($status == &HOST_OK()) { } |
|
|
0 |
0 |
elsif ($status == &HOST_NEW()) { } |
|
424
|
0 |
0 |
if ($strict_host_key_checking =~ /(ask|yes)/) |
|
425
|
0 |
0 |
unless ($ssh->{'config'}->get("interactive")) |
|
432
|
0 |
0 |
unless (_read_yes_or_no($prompt, "yes")) |
|
443
|
0 |
0 |
unless $check_ip and $host =~ /[a-z][A-Z]+/ |
|
444
|
0 |
0 |
unless my $ip = inet_ntoa(inet_aton($host)) |
|
447
|
0 |
0 |
unless (defined $status and $status == &HOST_OK() || $status == &HOST_CHANGED()) |
|
450
|
0 |
0 |
if ($status == &HOST_NEW()) { } |
|
|
0 |
0 |
elsif ($status == &HOST_CHANGED()) { } |
|
457
|
0 |
0 |
unless (_read_yes_or_no($prompt, "yes")) |