| line |
true |
false |
branch |
|
138
|
0 |
0 |
if (@_ == 2) { } |
|
|
0 |
0 |
elsif (@_ > 2) { } |
|
147
|
0 |
0 |
if (/^-?binmode$/i) { } |
|
|
0 |
0 |
elsif (/^-?cmd_remove_mode$/i) { } |
|
|
0 |
0 |
elsif (/^-?dump_log$/i) { } |
|
|
0 |
0 |
elsif (/^-?errmode$/i) { } |
|
|
0 |
0 |
elsif (/^-?family$/i) { } |
|
|
0 |
0 |
elsif (/^-?fhopen$/i) { } |
|
|
0 |
0 |
elsif (/^-?host$/i) { } |
|
|
0 |
0 |
elsif (/^-?input_log$/i) { } |
|
|
0 |
0 |
elsif (/^-?input_record_separator$/i or /^-?rs$/i) { } |
|
|
0 |
0 |
elsif (/^-?localfamily$/i) { } |
|
|
0 |
0 |
elsif (/^-?localhost$/i) { } |
|
|
0 |
0 |
elsif (/^-?max_buffer_length$/i) { } |
|
|
0 |
0 |
elsif (/^-?option_log$/i) { } |
|
|
0 |
0 |
elsif (/^-?output_field_separator$/i or /^-?ofs$/i) { } |
|
|
0 |
0 |
elsif (/^-?output_log$/i) { } |
|
|
0 |
0 |
elsif (/^-?output_record_separator$/i or /^-?ors$/i) { } |
|
|
0 |
0 |
elsif (/^-?port$/i) { } |
|
|
0 |
0 |
elsif (/^-?prompt$/i) { } |
|
|
0 |
0 |
elsif (/^-?telnetmode$/i) { } |
|
|
0 |
0 |
elsif (/^-?timeout$/i) { } |
|
214
|
0 |
0 |
if (defined $errmode) |
|
218
|
0 |
0 |
if (defined $host) |
|
222
|
0 |
0 |
if (defined $port) |
|
223
|
0 |
0 |
unless $self->port($port) |
|
227
|
0 |
0 |
if (defined $family) |
|
228
|
0 |
0 |
unless $self->family($family) |
|
232
|
0 |
0 |
if (defined $localfamily) |
|
233
|
0 |
0 |
unless $self->localfamily($localfamily) |
|
237
|
0 |
0 |
if (defined $prompt) |
|
238
|
0 |
0 |
unless $self->prompt($prompt) |
|
242
|
0 |
0 |
if (defined $dump_log) |
|
243
|
0 |
0 |
unless $self->dump_log($dump_log) |
|
247
|
0 |
0 |
if (defined $input_log) |
|
248
|
0 |
0 |
unless $self->input_log($input_log) |
|
252
|
0 |
0 |
if (defined $option_log) |
|
253
|
0 |
0 |
unless $self->option_log($option_log) |
|
257
|
0 |
0 |
if (defined $output_log) |
|
258
|
0 |
0 |
unless $self->output_log($output_log) |
|
262
|
0 |
0 |
if (defined $fh_open) { } |
|
|
0 |
0 |
elsif (defined $host) { } |
|
263
|
0 |
0 |
unless $self->fhopen($fh_open) |
|
267
|
0 |
0 |
unless $self->open |
|
289
|
0 |
0 |
if (@_ >= 2) |
|
290
|
0 |
0 |
unless (defined $mode) |
|
338
|
0 |
0 |
if defined fileno $self |
|
382
|
0 |
0 |
if $arg_errmode |
|
386
|
0 |
0 |
if (@args == 1) { } |
|
|
0 |
0 |
elsif (@args >= 2) { } |
|
395
|
0 |
0 |
if (/^-?cmd_remove/i) { } |
|
|
0 |
0 |
elsif (/^-?input_record_separator$/i or /^-?rs$/i) { } |
|
|
0 |
0 |
elsif (/^-?output$/i) { } |
|
|
0 |
0 |
elsif (/^-?output_record_separator$/i or /^-?ors$/i) { } |
|
|
0 |
0 |
elsif (/^-?prompt$/i) { } |
|
|
0 |
0 |
elsif (/^-?string$/i) { } |
|
|
0 |
0 |
elsif (/^-?timeout$/i) { } |
|
403
|
0 |
0 |
if (defined $output_ref and ref $output_ref eq 'ARRAY') |
|
411
|
0 |
0 |
unless $prompt = &_parse_prompt($self, $args{$_}) |
|
435
|
0 |
0 |
if $self->put($cmd . $ors) |
|
440
|
0 |
0 |
if $self->timed_out |
|
441
|
0 |
0 |
if $self->errmsg ne '' |
|
455
|
0 |
0 |
if ($firstpos < length $lines) |
|
461
|
0 |
0 |
if ($cmd_remove_mode eq 'auto') { } |
|
477
|
0 |
0 |
unless (@$output) |
|
482
|
0 |
0 |
if (defined $output_ref) |
|
483
|
0 |
0 |
if (ref $output_ref eq 'SCALAR') { } |
|
|
0 |
0 |
elsif (ref $output_ref eq 'HASH') { } |
|
491
|
0 |
0 |
wantarray ? : |
|
505
|
0 |
0 |
if (@_ >= 2) |
|
523
|
0 |
0 |
if (@_ >= 2) |
|
524
|
0 |
0 |
if (not defined $name or $name eq '') { } |
|
|
0 |
0 |
elsif (&_is_open_fh($name)) { } |
|
|
0 |
0 |
elsif (not ref $name) { } |
|
535
|
0 |
0 |
unless $fh = &_fname_to_handle($self, $name) |
|
568
|
0 |
0 |
if (@_ >= 2) |
|
586
|
0 |
0 |
if (@_ >= 2) |
|
607
|
0 |
0 |
if (@_ >= 2) { } |
|
614
|
0 |
0 |
if (ref $mode eq 'CODE') { } |
|
|
0 |
0 |
elsif (ref $mode eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($mode =~ /^return$/i) { } |
|
627
|
0 |
0 |
if ($errmsg =~ /\n$/) { } |
|
652
|
0 |
0 |
if (@_ >= 2) |
|
653
|
0 |
0 |
unless $family = &_parse_family($self, $family) |
|
674
|
0 |
0 |
unless defined $globref and defined fileno $globref |
|
731
|
0 |
0 |
if $s->{'eofile'} |
|
735
|
0 |
0 |
if (/^-?binmode$/i) { } |
|
|
0 |
0 |
elsif (/^-?errmode$/i) { } |
|
|
0 |
0 |
elsif (/^-?telnetmode$/i) { } |
|
|
0 |
0 |
elsif (/^-?timeout$/i) { } |
|
737
|
0 |
0 |
unless (defined $binmode) |
|
746
|
0 |
0 |
unless (defined $telnetmode) |
|
760
|
0 |
0 |
if defined $errmode |
|
762
|
0 |
0 |
if defined $binmode |
|
764
|
0 |
0 |
if defined $telnetmode |
|
771
|
0 |
0 |
if (length $s->{'unsent_opts'}) |
|
785
|
0 |
0 |
if $s->{'timedout'} and defined $timeout and $timeout == 0 and not length $s->{'buf'} |
|
788
|
0 |
0 |
if ($s->{'errormsg'} and not $s->{'timedout'}) |
|
789
|
0 |
0 |
if (not length $s->{'buf'}) { } |
|
802
|
0 |
0 |
unless (length $s->{'buf'}) |
|
804
|
0 |
0 |
unless (&_fillbuf($self, $s, $endtime)) |
|
805
|
0 |
0 |
if $s->{'timedout'} |
|
841
|
0 |
0 |
if $s->{'eofile'} |
|
847
|
0 |
0 |
if (/^-?binmode$/i) { } |
|
|
0 |
0 |
elsif (/^-?errmode$/i) { } |
|
|
0 |
0 |
elsif (/^-?input_record_separator$/i or /^-?rs$/i) { } |
|
|
0 |
0 |
elsif (/^-?telnetmode$/i) { } |
|
|
0 |
0 |
elsif (/^-?timeout$/i) { } |
|
849
|
0 |
0 |
unless (defined $binmode) |
|
861
|
0 |
0 |
unless (defined $telnetmode) |
|
875
|
0 |
0 |
if defined $binmode |
|
877
|
0 |
0 |
if defined $errmode |
|
879
|
0 |
0 |
if defined $telnetmode |
|
886
|
0 |
0 |
if (length $s->{'unsent_opts'}) |
|
895
|
0 |
0 |
unless (&_fillbuf($self, $s, $endtime)) |
|
896
|
0 |
0 |
if $s->{'timedout'} |
|
900
|
0 |
0 |
if (length $s->{'buf'}) { } |
|
936
|
0 |
0 |
if $s->{'eofile'} |
|
941
|
0 |
0 |
if (/^-?all$/i) { } |
|
|
0 |
0 |
elsif (/^-?binmode$/i) { } |
|
|
0 |
0 |
elsif (/^-?errmode$/i) { } |
|
|
0 |
0 |
elsif (/^-?input_record_separator$/i or /^-?rs$/i) { } |
|
|
0 |
0 |
elsif (/^-?telnetmode$/i) { } |
|
|
0 |
0 |
elsif (/^-?timeout$/i) { } |
|
943
|
0 |
0 |
unless (defined $all) |
|
949
|
0 |
0 |
unless (defined $binmode) |
|
961
|
0 |
0 |
unless (defined $telnetmode) |
|
975
|
0 |
0 |
if defined $binmode |
|
977
|
0 |
0 |
if defined $errmode |
|
979
|
0 |
0 |
if defined $rs |
|
981
|
0 |
0 |
if defined $telnetmode |
|
986
|
0 |
0 |
unless ($all) |
|
992
|
0 |
0 |
unless $line = $self->getline |
|
998
|
0 |
0 |
unless $self->eof |
|
1014
|
0 |
0 |
if (@_ >= 2) |
|
1015
|
0 |
0 |
unless (defined $host) |
|
1036
|
0 |
0 |
if (@_ >= 2) |
|
1037
|
0 |
0 |
if (not defined $name or $name eq '') { } |
|
|
0 |
0 |
elsif (&_is_open_fh($name)) { } |
|
|
0 |
0 |
elsif (not ref $name) { } |
|
1048
|
0 |
0 |
unless $fh = &_fname_to_handle($self, $name) |
|
1074
|
0 |
0 |
if (@_ >= 2) |
|
1092
|
0 |
0 |
if (@_ >= 2) |
|
1093
|
0 |
0 |
unless (defined $string) |
|
1114
|
0 |
0 |
if (@_ >= 2) |
|
1115
|
0 |
0 |
unless (defined $line) |
|
1136
|
0 |
0 |
if (@_ >= 2) |
|
1137
|
0 |
0 |
unless (defined $family) |
|
1141
|
0 |
0 |
if ($family =~ /^\s*ipv4\s*$/i) { } |
|
|
0 |
0 |
elsif ($family =~ /^\s*any\s*$/i) { } |
|
|
0 |
0 |
elsif ($family =~ /^\s*ipv6\s*$/i) { } |
|
1145
|
0 |
0 |
if ($Socket::VERSION >= 1.94 and defined $AF_INET6) { } |
|
1153
|
0 |
0 |
unless $Socket::VERSION >= 1.94 |
|
1156
|
0 |
0 |
unless defined $AF_INET6 |
|
1182
|
0 |
0 |
if (@_ >= 2) |
|
1183
|
0 |
0 |
unless (defined $localhost) |
|
1223
|
0 |
0 |
if (@args == 2) |
|
1233
|
0 |
0 |
if $arg_errmode |
|
1237
|
0 |
0 |
if (@args > 2) |
|
1243
|
0 |
0 |
if (/^-?name$/i) { } |
|
|
0 |
0 |
elsif (/^-?pass/i) { } |
|
|
0 |
0 |
elsif (/^-?prompt$/i) { } |
|
|
0 |
0 |
elsif (/^-?timeout$/i) { } |
|
1245
|
0 |
0 |
unless (defined $username) |
|
1253
|
0 |
0 |
unless (defined $passwd) |
|
1260
|
0 |
0 |
unless $prompt = &_parse_prompt($self, $args{$_}) |
|
1274
|
0 |
0 |
unless $is_username_arg |
|
1276
|
0 |
0 |
unless $is_passwd_arg |
|
1287
|
0 |
0 |
if ($self->timed_out) { } |
|
|
0 |
0 |
elsif ($self->eof) { } |
|
1300
|
0 |
0 |
if $self->eof |
|
1307
|
0 |
0 |
unless ($self->waitfor('Match', '/login[: ]*$/i', 'Match', '/username[: ]*$/i', 'Errmode', 'return')) |
|
1308
|
0 |
0 |
if $self->eof |
|
1317
|
0 |
0 |
unless $self->put('String', $username . $ors, 'Errmode', 'return') |
|
1324
|
0 |
0 |
unless ($self->waitfor('Match', '/password[: ]*$/i', 'Errmode', 'return')) |
|
1325
|
0 |
0 |
if $self->eof |
|
1334
|
0 |
0 |
unless $self->put('String', $passwd . $ors, 'Errmode', 'return') |
|
1343
|
0 |
0 |
unless (($prematch, $match) = $self->waitfor('Match', '/login[: ]*$/i', 'Match', '/username[: ]*$/i', 'Match', $prompt, 'Errmode', 'return')) |
|
1344
|
0 |
0 |
if $self->eof |
|
1350
|
0 |
0 |
if $match =~ /login[: ]*$/i or $match =~ /username[: ]*$/i |
|
1371
|
0 |
0 |
if (@_ >= 2) |
|
1373
|
0 |
0 |
unless (defined $maxbufsize and $maxbufsize =~ /^\d+$/ and $maxbufsize) |
|
1383
|
0 |
0 |
if ($maxbufsize < $minbufsize) |
|
1421
|
0 |
0 |
defined $AF_INET6 ? : |
|
1439
|
0 |
0 |
if $arg_errmode |
|
1442
|
0 |
0 |
if (@args == 1) { } |
|
|
0 |
0 |
elsif (@args >= 2) { } |
|
1451
|
0 |
0 |
if (/^-?family$/i) { } |
|
|
0 |
0 |
elsif (/^-?host$/i) { } |
|
|
0 |
0 |
elsif (/^-?localfamily$/i) { } |
|
|
0 |
0 |
elsif (/^-?localhost$/i) { } |
|
|
0 |
0 |
elsif (/^-?port$/i) { } |
|
|
0 |
0 |
elsif (/^-?timeout$/i) { } |
|
1461
|
0 |
0 |
unless defined $args{$_} |
|
1484
|
0 |
0 |
if (defined $timeout and &_have_alarm) { } |
|
1486
|
0 |
0 |
if ($timeout >= $^T) |
|
1491
|
0 |
0 |
if ($timeout < 1) |
|
1503
|
0 |
0 |
if ($family eq 'ipv4') { } |
|
1505
|
0 |
0 |
unless $ip_addr = inet_aton($host) |
|
1512
|
0 |
0 |
$family eq 'any' ? : |
|
1517
|
0 |
0 |
if ($err == $EAI_BADFLAGS) |
|
1524
|
0 |
0 |
if $err or not @ai |
|
1531
|
0 |
0 |
unless socket $self, $af, 1, 0 |
|
1535
|
0 |
0 |
if (length $localhost) |
|
1536
|
0 |
0 |
if ($lfamily eq 'ipv4') { } |
|
1538
|
0 |
0 |
unless $ip_addr = inet_aton($localhost) |
|
1548
|
0 |
0 |
if $err or not @ai |
|
1553
|
0 |
0 |
unless bind $self, $local_addr |
|
1558
|
0 |
0 |
unless connect $self, $remote_addr |
|
1564
|
0 |
0 |
if ($@ =~ /^timed-out$/) { } |
|
|
0 |
0 |
elsif ($@) { } |
|
1567
|
0 |
0 |
if (not $remote_addr) { } |
|
|
0 |
0 |
elsif (length $localhost and not $local_addr) { } |
|
1589
|
0 |
0 |
if ($family eq 'ipv4') { } |
|
1591
|
0 |
0 |
unless $ip_addr = inet_aton($host) |
|
1598
|
0 |
0 |
$family eq 'any' ? : |
|
1603
|
0 |
0 |
if ($err == $EAI_BADFLAGS) |
|
1610
|
0 |
0 |
if $err or not @ai |
|
1617
|
0 |
0 |
unless socket $self, $af, 1, 0 |
|
1621
|
0 |
0 |
if (length $localhost) |
|
1622
|
0 |
0 |
if ($lfamily eq 'ipv4') { } |
|
1624
|
0 |
0 |
unless $ip_addr = inet_aton($localhost) |
|
1634
|
0 |
0 |
if $err or not @ai |
|
1639
|
0 |
0 |
unless bind $self, $local_addr |
|
1646
|
0 |
0 |
unless (connect $self, $remote_addr) |
|
1691
|
0 |
0 |
if (/^-?do$/i) { } |
|
|
0 |
0 |
elsif (/^-?dont$/i) { } |
|
|
0 |
0 |
elsif (/^-?will$/i) { } |
|
|
0 |
0 |
elsif (/^-?wont$/i) { } |
|
1695
|
0 |
0 |
unless $s->{'opt_cback'} |
|
1698
|
0 |
0 |
unless defined $option |
|
1706
|
0 |
0 |
unless defined $option |
|
1716
|
0 |
0 |
unless $s->{'opt_cback'} |
|
1719
|
0 |
0 |
unless defined $option |
|
1727
|
0 |
0 |
unless defined $option |
|
1757
|
0 |
0 |
if (@_ >= 2) |
|
1758
|
0 |
0 |
unless (defined $callback and ref $callback eq 'CODE') |
|
1781
|
0 |
0 |
if (@_ >= 2) |
|
1782
|
0 |
0 |
if (not defined $name or $name eq '') { } |
|
|
0 |
0 |
elsif (&_is_open_fh($name)) { } |
|
|
0 |
0 |
elsif (not ref $name) { } |
|
1793
|
0 |
0 |
unless $fh = &_fname_to_handle($self, $name) |
|
1819
|
0 |
0 |
unless defined $option |
|
1823
|
0 |
0 |
unless (defined $s->{'opts'}{$option}) |
|
1848
|
0 |
0 |
if (@_ >= 2) |
|
1849
|
0 |
0 |
unless (defined $ofs) |
|
1870
|
0 |
0 |
if (@_ >= 2) |
|
1871
|
0 |
0 |
if (not defined $name or $name eq '') { } |
|
|
0 |
0 |
elsif (&_is_open_fh($name)) { } |
|
|
0 |
0 |
elsif (not ref $name) { } |
|
1882
|
0 |
0 |
unless $fh = &_fname_to_handle($self, $name) |
|
1908
|
0 |
0 |
if (@_ >= 2) |
|
1909
|
0 |
0 |
unless (defined $ors) |
|
1929
|
0 |
0 |
unless $sockaddr = getpeername $self |
|
1946
|
0 |
0 |
unless $sockaddr = getpeername $self |
|
1965
|
0 |
0 |
if (@_ >= 2) |
|
1966
|
0 |
0 |
unless $port = &_parse_port($self, $port) |
|
1987
|
0 |
0 |
unless $s->{'opened'} |
|
1993
|
0 |
0 |
if ($s->{'outputlog'}) |
|
1998
|
0 |
0 |
unless ($s->{'bin_mode'}) |
|
2003
|
0 |
0 |
if ($s->{'telnet_mode'}) |
|
2030
|
0 |
0 |
if (@_ == 2) |
|
2031
|
0 |
0 |
unless $prompt = &_parse_prompt($self, $prompt) |
|
2060
|
0 |
0 |
if (@_ == 2) { } |
|
|
0 |
0 |
elsif (@_ > 2) { } |
|
2069
|
0 |
0 |
if (/^-?binmode$/i) { } |
|
|
0 |
0 |
elsif (/^-?errmode$/i) { } |
|
|
0 |
0 |
elsif (/^-?string$/i) { } |
|
|
0 |
0 |
elsif (/^-?telnetmode$/i) { } |
|
|
0 |
0 |
elsif (/^-?timeout$/i) { } |
|
2071
|
0 |
0 |
unless (defined $binmode) |
|
2083
|
0 |
0 |
unless (defined $telnetmode) |
|
2099
|
0 |
0 |
if defined $binmode |
|
2101
|
0 |
0 |
if defined $errmode |
|
2103
|
0 |
0 |
if defined $telnetmode |
|
2105
|
0 |
0 |
if defined $is_timeout_arg |
|
2110
|
0 |
0 |
unless $s->{'opened'} |
|
2113
|
0 |
0 |
if ($s->{'outputlog'}) |
|
2118
|
0 |
0 |
unless ($s->{'bin_mode'}) |
|
2123
|
0 |
0 |
if ($s->{'telnet_mode'}) |
|
2141
|
0 |
0 |
if ($s->{'sock_family'} == 2) { } |
|
|
0 |
0 |
elsif (defined $AF_INET6 and $s->{'sock_family'} == $AF_INET6) { } |
|
2161
|
0 |
0 |
unless $sockaddr = getsockname $self |
|
2178
|
0 |
0 |
unless $sockaddr = getsockname $self |
|
2196
|
0 |
0 |
if (@_ >= 2) |
|
2197
|
0 |
0 |
unless (defined $callback and ref $callback eq 'CODE') |
|
2220
|
0 |
0 |
if (@_ >= 2) |
|
2221
|
0 |
0 |
unless (defined $mode) |
|
2242
|
0 |
0 |
if (@_ >= 2) |
|
2243
|
0 |
0 |
unless (defined $value) |
|
2264
|
0 |
0 |
if (@_ >= 2) |
|
2301
|
0 |
0 |
if $s->{'eofile'} |
|
2302
|
0 |
0 |
unless @args |
|
2327
|
0 |
0 |
if (@_ == 2) { } |
|
|
0 |
0 |
elsif (@_ > 2) { } |
|
2337
|
0 |
0 |
if (/^-?binmode$/i) { } |
|
|
0 |
0 |
elsif (/^-?errmode$/i) { } |
|
|
0 |
0 |
elsif (/^-?match$/i) { } |
|
|
0 |
0 |
elsif (/^-?string$/i) { } |
|
|
0 |
0 |
elsif (/^-?telnetmode$/i) { } |
|
|
0 |
0 |
elsif (/^-?timeout$/i) { } |
|
2339
|
0 |
0 |
unless (defined $binmode) |
|
2362
|
0 |
0 |
unless (defined $telnetmode) |
|
2377
|
0 |
0 |
if defined $errmode |
|
2379
|
0 |
0 |
if defined $binmode |
|
2381
|
0 |
0 |
if defined $telnetmode |
|
2386
|
0 |
0 |
unless $match_op =~ m[^\s*/] or $match_op =~ /^\s*m\s*\W/ |
|
2421
|
0 |
0 |
if $s->{'timedout'} |
|
2422
|
0 |
0 |
if $s->{'errormsg'} ne '' |
|
2423
|
0 |
0 |
if $s->{'eofile'} |
|
2426
|
0 |
0 |
if ($@ or @warns) |
|
2428
|
0 |
0 |
unless &_match_check($self, $match_op) |
|
2431
|
0 |
0 |
if $@ |
|
2432
|
0 |
0 |
if @warns |
|
2435
|
0 |
0 |
wantarray ? : |
|
2478
|
0 |
0 |
if (defined $interval) { } |
|
2479
|
0 |
0 |
if ($interval >= $^T) { } |
|
|
0 |
0 |
elsif ($interval > 0) { } |
|
2514
|
0 |
0 |
unless $nextchar eq "\n" |
|
2533
|
0 |
0 |
unless @$args >= 2 |
|
2541
|
0 |
0 |
if (/^-?errmode$/i) { } |
|
2568
|
0 |
0 |
if ($s->{'pending_errormsg'}) |
|
2574
|
0 |
0 |
unless $s->{'opened'} |
|
2580
|
0 |
0 |
unless length $s->{'buf'} <= $s->{'maxbufsize'} |
|
2584
|
0 |
0 |
if ($timed_out) |
|
2593
|
0 |
0 |
if (!defined($nfound) || $nfound <= 0 and $s->{'select_supported'}) |
|
2594
|
0 |
0 |
if (defined $nfound and $nfound == 0) { } |
|
2599
|
0 |
0 |
if (defined $EINTR) { } |
|
2600
|
0 |
0 |
if $! == $EINTR |
|
2603
|
0 |
0 |
if $! =~ /^interrupted/i |
|
2613
|
0 |
0 |
if ($pushback_len) |
|
2624
|
0 |
0 |
unless (defined $nread) |
|
2625
|
0 |
0 |
if (defined $EINTR) { } |
|
2626
|
0 |
0 |
if $! == $EINTR |
|
2629
|
0 |
0 |
if $! =~ /^interrupted/i |
|
2637
|
0 |
0 |
if ($nread == 0) |
|
2643
|
0 |
0 |
if ($s->{'dumplog'}) |
|
2648
|
0 |
0 |
if ($s->{'telnet_mode'} and index($s->{'buf'}, "\377", $unparsed_pos) > -1) |
|
2656
|
0 |
0 |
if $unparsed_pos >= length $s->{'buf'} |
|
2659
|
0 |
0 |
if ($s->{'inputlog'}) |
|
2690
|
0 |
0 |
unless (&_put($self, \$option_chars, 'telnet option negotiation')) |
|
2709
|
0 |
0 |
unless CORE::open $fh, "> $filename" |
|
2789
|
0 |
0 |
if ($nextchar eq "\000") { } |
|
|
0 |
0 |
elsif ($nextchar eq "\n") { } |
|
|
0 |
0 |
elsif (not length $nextchar and $s->{'telnet_mode'} || !$s->{'bin_mode'}) { } |
|
2791
|
0 |
0 |
if ($s->{'telnet_mode'}) |
|
2797
|
0 |
0 |
unless ($s->{'bin_mode'}) |
|
2833
|
0 |
0 |
unless (length $nextchar) |
|
2839
|
0 |
0 |
if ($nextchar eq "\377") { } |
|
|
0 |
0 |
elsif ($nextchar eq "\375" or $nextchar eq "\373" or $nextchar eq "\374" or $nextchar eq "\376") { } |
|
|
0 |
0 |
elsif ($nextchar eq "\372") { } |
|
2849
|
0 |
0 |
unless (length $option) |
|
2865
|
0 |
0 |
if ($endpos == -1) |
|
2876
|
0 |
0 |
if ($s->{'subopt_cback'} and length $subcmd >= 5) |
|
2878
|
0 |
0 |
if (length $subcmd >= 6) { } |
|
2896
|
0 |
0 |
if (length $s->{'unsent_opts'}) |
|
2935
|
0 |
0 |
unless defined $len |
|
2937
|
0 |
0 |
if $len <= 0 |
|
2942
|
0 |
0 |
if ($len >= 16) { } |
|
2979
|
0 |
0 |
if ($option >= 0 and $option <= $#Net::Telnet::Telopts) { } |
|
2994
|
0 |
0 |
if (ref $fh eq 'GLOB') { } |
|
3017
|
0 |
0 |
if ($@) { } |
|
|
0 |
0 |
elsif (@warns) { } |
|
3044
|
0 |
0 |
if ($is_remote and $opt == &TELOPT_ECHO) |
|
3047
|
0 |
0 |
if ($is_enabled and not $was_enabled) { } |
|
|
0 |
0 |
elsif (not $is_enabled and $was_enabled) { } |
|
3057
|
0 |
0 |
if ($callback) |
|
3070
|
0 |
0 |
unless (defined $s->{'opts'}{$opt}) |
|
3075
|
0 |
0 |
if ($opt_request eq "\376") { } |
|
|
0 |
0 |
elsif ($opt_request eq "\375") { } |
|
|
0 |
0 |
elsif ($opt_request eq "\374") { } |
|
|
0 |
0 |
elsif ($opt_request eq "\373") { } |
|
3120
|
0 |
0 |
if ($opt_request eq 'wont') { } |
|
|
0 |
0 |
elsif ($opt_request eq 'dont') { } |
|
3128
|
0 |
0 |
if $s->{'opt_log'} |
|
3138
|
0 |
0 |
if $s->{'opt_log'} |
|
3145
|
0 |
0 |
if ($$state eq 'no') { } |
|
|
0 |
0 |
elsif ($$state eq 'yes') { } |
|
|
0 |
0 |
elsif ($$state eq 'wantno') { } |
|
|
0 |
0 |
elsif ($$state eq 'wantno opposite') { } |
|
|
0 |
0 |
elsif ($$state eq 'wantyes') { } |
|
|
0 |
0 |
elsif ($$state eq 'wantyes opposite') { } |
|
3154
|
0 |
0 |
if $s->{'opt_log'} |
|
3176
|
0 |
0 |
if $s->{'opt_log'} |
|
3214
|
0 |
0 |
if ($opt_request eq 'will') { } |
|
|
0 |
0 |
elsif ($opt_request eq 'do') { } |
|
3222
|
0 |
0 |
if $s->{'opt_log'} |
|
3232
|
0 |
0 |
if $s->{'opt_log'} |
|
3242
|
0 |
0 |
if ($$state eq 'no') { } |
|
|
0 |
0 |
elsif ($$state eq 'yes') { } |
|
|
0 |
0 |
elsif ($$state eq 'wantno') { } |
|
|
0 |
0 |
elsif ($$state eq 'wantno opposite') { } |
|
|
0 |
0 |
elsif ($$state eq 'wantyes') { } |
|
|
0 |
0 |
elsif ($$state eq 'wantyes opposite') { } |
|
3243
|
0 |
0 |
if ($enable_ok) { } |
|
3250
|
0 |
0 |
if $s->{'opt_log'} |
|
3260
|
0 |
0 |
if $s->{'opt_log'} |
|
3297
|
0 |
0 |
if $s->{'opt_log'} |
|
3323
|
0 |
0 |
unless $line = $self->getline |
|
3352
|
0 |
0 |
unless (defined $s->{'opts'}{$option}) |
|
3357
|
0 |
0 |
if ($arg->{'is_remote'}) { } |
|
3374
|
0 |
0 |
if (not defined $blksize or $blksize < 512 or $blksize > 1048576) |
|
3385
|
0 |
0 |
if (not defined $mode) { } |
|
|
0 |
0 |
elsif ($mode =~ /^\s*auto\s*$/i) { } |
|
|
0 |
0 |
elsif (not $mode =~ /^\d+$/) { } |
|
3406
|
0 |
0 |
if (not defined $errmode) { } |
|
|
0 |
0 |
elsif ($errmode =~ /^\s*return\s*$/i) { } |
|
|
0 |
0 |
elsif ($errmode =~ /^\s*die\s*$/i) { } |
|
|
0 |
0 |
elsif (ref $errmode eq 'CODE') { } |
|
|
0 |
0 |
elsif (ref $errmode eq 'ARRAY') { } |
|
3419
|
0 |
0 |
unless (ref $$errmode[0] eq 'CODE') |
|
3440
|
0 |
0 |
unless (defined $family) |
|
3444
|
0 |
0 |
if ($family =~ /^\s*ipv4\s*$/i) { } |
|
|
0 |
0 |
elsif ($family =~ /^\s*any\s*$/i) { } |
|
|
0 |
0 |
elsif ($family =~ /^\s*ipv6\s*$/i) { } |
|
3448
|
0 |
0 |
if ($Socket::VERSION >= 1.94 and defined $AF_INET6) { } |
|
3456
|
0 |
0 |
unless $Socket::VERSION >= 1.94 |
|
3459
|
0 |
0 |
unless defined $AF_INET6 |
|
3477
|
0 |
0 |
unless (defined $rs and length $rs) |
|
3489
|
0 |
0 |
unless (defined $family) |
|
3493
|
0 |
0 |
if ($family =~ /^\s*ipv4\s*$/i) { } |
|
|
0 |
0 |
elsif ($family =~ /^\s*any\s*$/i) { } |
|
|
0 |
0 |
elsif ($family =~ /^\s*ipv6\s*$/i) { } |
|
3497
|
0 |
0 |
if ($Socket::VERSION >= 1.94 and defined $AF_INET6) { } |
|
3505
|
0 |
0 |
unless $Socket::VERSION >= 1.94 |
|
3508
|
0 |
0 |
unless defined $AF_INET6 |
|
3529
|
0 |
0 |
unless (defined $port) |
|
3533
|
0 |
0 |
unless $port |
|
3536
|
0 |
0 |
unless ($port =~ /^\d+$/) |
|
3540
|
0 |
0 |
unless $port |
|
3552
|
0 |
0 |
unless (defined $prompt) |
|
3556
|
0 |
0 |
unless $prompt =~ m[^\s*/] or $prompt =~ /^\s*m\s*\W/ |
|
3569
|
0 |
0 |
if (defined $timeout) |
|
3577
|
0 |
0 |
if ($@) { } |
|
|
0 |
0 |
elsif ($timeout < 0) { } |
|
3616
|
0 |
0 |
unless $s->{'opened'} |
|
3619
|
0 |
0 |
if (length $s->{'unsent_opts'}) |
|
3627
|
0 |
0 |
if ($timed_out) |
|
3636
|
0 |
0 |
if (!defined($nfound) || $nfound <= 0 and $s->{'select_supported'}) |
|
3637
|
0 |
0 |
if (defined $nfound and $nfound == 0) { } |
|
3642
|
0 |
0 |
if (defined $EINTR) { } |
|
3643
|
0 |
0 |
if $! == $EINTR |
|
3646
|
0 |
0 |
if $! =~ /^interrupted/i |
|
3658
|
0 |
0 |
if (not defined $nwrote) { } |
|
|
0 |
0 |
elsif ($nwrote == 0) { } |
|
3659
|
0 |
0 |
if (defined $EINTR) { } |
|
3660
|
0 |
0 |
if $! == $EINTR |
|
3663
|
0 |
0 |
if $! =~ /^interrupted/i |
|
3671
|
0 |
0 |
if ($zero_wrote_count++ <= 10) |
|
3681
|
0 |
0 |
if ($s->{'dumplog'}) |
|
3710
|
0 |
0 |
unless (ref $name) |
|
3717
|
0 |
0 |
unless ref $name |
|
3752
|
0 |
0 |
if (($lastpos = rindex($s->{'buf'}, $rs)) > -1) |
|
3756
|
0 |
0 |
if ($firstpos == -1) { } |
|
3768
|
0 |
0 |
unless (substr($s->{'buf'}, $offset, $len_wo_sep) =~ /^\s*$/) |
|
3777
|
0 |
0 |
if $firstpos == -1 |
|
3822
|
0 |
0 |
if (defined $endtime) { } |
|
3824
|
0 |
0 |
if $endtime == 0 |
|
3830
|
0 |
0 |
unless $timeout > 0 |
|
3852
|
0 |
0 |
if ($sockfamily eq 'ipv4') { } |
|
|
0 |
0 |
elsif ($sockfamily eq 'ipv6') { } |
|
3892
|
0 |
0 |
if $isa{$pkg} |
|
3908
|
0 |
0 |
if (defined $argname) { } |
|
3922
|
0 |
0 |
if $@ |
|
3925
|
0 |
0 |
unless $option <= 255 |