| line |
true |
false |
branch |
|
103
|
0 |
16 |
if (not $type->can('can_ipv6')) { } |
|
|
16 |
0 |
elsif ($type->can_ipv6) { } |
|
109
|
16 |
0 |
if $IOCLASS eq 'IO::Socket::IP' |
|
133
|
96 |
16 |
if (defined $ver) { } |
|
154
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
168
|
0 |
0 |
if (ref $arg->{'SSL_Advanced'} eq 'HASH') |
|
176
|
0 |
0 |
if (ref $arg->{'SSL_Client_Certificate'} eq 'HASH') |
|
191
|
0 |
0 |
if $_ eq 'SSL_Client_Certificate' |
|
197
|
0 |
0 |
unless ($ssl_args{'SSL_use_cert'} or $ssl_args{'SSL_verify_mode'}) |
|
221
|
0 |
0 |
$encrypt_mode eq 'C' ? : |
|
227
|
0 |
0 |
if ($debug and defined $arg->{'DebugLogFile'}) |
|
240
|
0 |
0 |
$arg->{'DisableContext'} || $encrypt_mode eq 'C' ? : |
|
254
|
0 |
0 |
$debug == 99 ? : |
|
257
|
0 |
0 |
$debug == 90 ? : |
|
262
|
0 |
0 |
if ($use_logfile) { } |
|
|
0 |
0 |
elsif ($use_glob) { } |
|
263
|
0 |
0 |
$debug == 2 ? : |
|
265
|
0 |
0 |
if -f $f and $open_mode ne '>>' |
|
269
|
0 |
0 |
unless open $FTPS_ERROR, "$open_mode $f" |
|
282
|
0 |
0 |
if ($use_logfile or $use_glob) { } |
|
|
0 |
0 |
elsif ($debug) { } |
|
283
|
0 |
0 |
if ($f_exists) { } |
|
300
|
0 |
0 |
if ($debug) |
|
307
|
0 |
0 |
$debug >= 2 ? : |
|
|
0 |
0 |
$die ? : |
|
309
|
0 |
0 |
unless $host |
|
311
|
0 |
0 |
if $encrypt_mode ne 'I' and $encrypt_mode ne 'E' and $encrypt_mode ne 'C' |
|
316
|
0 |
0 |
if $data_prot ne 'C' and $data_prot ne 'S' and $data_prot ne 'E' and $data_prot ne 'P' |
|
323
|
0 |
0 |
if ($ipv6 and defined $domain) |
|
324
|
0 |
0 |
exists $arg->{'Domain'} ? : |
|
326
|
0 |
0 |
unless defined $domain |
|
333
|
0 |
0 |
if (exists $arg->{'ProxyArgs'}) { } |
|
345
|
0 |
0 |
if ($@) |
|
348
|
0 |
0 |
unless (defined $socket) |
|
362
|
0 |
0 |
if defined $localaddr |
|
363
|
0 |
0 |
if $ipv6 and defined $domain |
|
365
|
0 |
0 |
unless $socket = $IOCLASS->new(%socketArgs) |
|
386
|
0 |
0 |
if ($encrypt_mode eq 'C') { } |
|
388
|
0 |
0 |
unless response($socket) == 2 |
|
403
|
0 |
0 |
if (defined $ssl_args{'SSL_version'}) { } |
|
|
0 |
0 |
elsif ($use__ssl) { } |
|
414
|
0 |
0 |
unless exists $ssl_args{'Timeout'} |
|
419
|
0 |
0 |
if ($reuseSession) |
|
429
|
0 |
0 |
if ($type->can('can_client_sni') and $type->can_client_sni) |
|
430
|
0 |
0 |
unless exists $ssl_args{'SSL_hostname'} |
|
433
|
0 |
0 |
if ($encrypt_mode eq 'E') |
|
435
|
0 |
0 |
unless response($socket) == 2 |
|
438
|
0 |
0 |
$use_ssl_flag ? : |
|
439
|
0 |
0 |
unless response($socket) == 2 |
|
448
|
0 |
0 |
unless ($obj) |
|
449
|
0 |
0 |
unless (exists do {
*$socket
}->{'_FTPSSL_arguments'}) |
|
451
|
0 |
0 |
if $debug |
|
457
|
0 |
0 |
unless (exists do {
*$obj
}->{'_FTPSSL_arguments'}) |
|
459
|
0 |
0 |
if $debug |
|
463
|
0 |
0 |
if ($encrypt_mode eq 'I') |
|
465
|
0 |
0 |
unless $obj->response == 2 |
|
475
|
0 |
0 |
if (defined $fixHelp) |
|
479
|
0 |
0 |
if (ref $fixHelp eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($fixHelp == -1) { } |
|
|
0 |
0 |
elsif ($fixHelp) { } |
|
482
|
0 |
0 |
if $k ne 'HELP' |
|
515
|
0 |
0 |
if defined $pasvHost |
|
519
|
0 |
0 |
if $xWait |
|
521
|
0 |
0 |
if $debug >= 2 |
|
525
|
0 |
0 |
if ($reuseSession or $enableCtx or ref $arg->{'SSL_Client_Certificate'} eq 'HASH') |
|
532
|
0 |
0 |
if (exists do {
*$obj
}->{'_SSL_arguments'}{$key}) |
|
536
|
0 |
0 |
if (exists do {
*$obj
}->{'_SSL_arguments'}{$key}) |
|
540
|
0 |
0 |
if (exists do {
*$obj
}->{'_SSL_arguments'}{$key}) { } |
|
|
0 |
0 |
elsif (exists $ssl_args{$key}) { } |
|
548
|
0 |
0 |
if (exists do {
*$obj
}->{'_SSL_arguments'}{$key} and not exists $ssl_reuse{$key}) |
|
559
|
0 |
0 |
if ($debug) |
|
560
|
0 |
0 |
if (ref $arg->{'SSL_Client_Certificate'} eq 'HASH') |
|
579
|
0 |
0 |
if (defined $user and $user ne '') |
|
590
|
0 |
0 |
if ($logged_on) |
|
593
|
0 |
0 |
if ($arg->{'debug_no_help'}) |
|
603
|
0 |
0 |
if ($arg->{'debug'} and $arg->{'debug_extra'}) |
|
610
|
0 |
0 |
if ($hlp eq '') { } |
|
611
|
0 |
0 |
$arg->{'OverrideHELP'} ? : |
|
619
|
0 |
0 |
if ($arg->{'FixPutTs'} and not $self->supported('MFMT')) |
|
622
|
0 |
0 |
if ($arg->{'FixGetTs'} and not $self->supported('MDTM')) |
|
634
|
0 |
0 |
unless $self->_quit |
|
645
|
0 |
0 |
unless ($epsv_mode eq '1' or $epsv_mode eq '2') |
|
650
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'dcsc_mode'} != 2 and do {
*$self
}->{'_FTPSSL_arguments'}{'dcsc_mode'} != 3) |
|
652
|
0 |
0 |
unless ($self->command('EPSV', 'ALL')->response == 2) |
|
659
|
0 |
0 |
$epsv_mode eq '1' ? : |
|
662
|
0 |
0 |
unless ($self->command('EPSV', $epsv_mode)->response == 2) |
|
678
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'Pret'}) |
|
679
|
0 |
0 |
unless ($self->command('PRET', @_)->response == 2) |
|
685
|
0 |
0 |
unless ($self->command('PASV')->response == 2) |
|
686
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'Pret'}) { } |
|
|
0 |
0 |
elsif ($self->last_message =~ /(^|\s)PRET($|[\s.!?])/i) { } |
|
706
|
0 |
0 |
unless ($msg =~ /(\d+)\s(.*)\(((\d+,?)+)\)\.?/) |
|
716
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'OverridePASV'}) |
|
729
|
0 |
0 |
$ipver == 2 ? : |
|
730
|
0 |
0 |
unless ($self->response == 2) |
|
737
|
0 |
0 |
unless ($msg =~ /[(](.)(.)(.)(\d+)(.)[)]/) |
|
753
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'Crypt'} ne 'C') |
|
755
|
0 |
0 |
unless ($self->_prot) |
|
761
|
0 |
0 |
if ($mode == 1) { } |
|
|
0 |
0 |
elsif ($mode == 2 or $mode == 3) { } |
|
766
|
0 |
0 |
$mode == 4 || $mode == 5 || $mode == 6 ? : |
|
776
|
0 |
0 |
if $host eq '' or $port eq '' |
|
800
|
0 |
0 |
if (exists $ftps_ref->{'myProxyArgs'}) |
|
811
|
0 |
0 |
if ($ftps_ref->{'data_prot'} eq 'P') { } |
|
|
0 |
0 |
elsif ($ftps_ref->{'data_prot'} eq 'C' and exists $ftps_ref->{'myProxyArgs'}) { } |
|
|
0 |
0 |
elsif ($ftps_ref->{'data_prot'} eq 'C') { } |
|
812
|
0 |
0 |
if (exists $ftps_ref->{'myProxyArgs'}) |
|
821
|
0 |
0 |
unless $socket = 'Net::SSLeay::Handle'->make_socket($host, $port) |
|
826
|
0 |
0 |
unless $socket = 'Net::HTTPTunnel'->new(%proxyArgs) |
|
835
|
0 |
0 |
unless $socket = $IOCLASS->new(%socketArgs) |
|
860
|
0 |
0 |
if ($ftps_ref->{'data_prot'} eq 'P' and exists $ftps_ref->{'myContext'}) { } |
|
|
0 |
0 |
elsif ($ftps_ref->{'data_prot'} eq 'P') { } |
|
|
0 |
0 |
elsif ($ftps_ref->{'data_prot'} eq 'C') { } |
|
865
|
0 |
0 |
if ($self->can('can_client_sni') and $self->can_client_sni) |
|
869
|
0 |
0 |
unless $io = 'IO::Socket::SSL'->start_SSL($ftps_ref->{'data_ch'}, \%ssl_opts) |
|
897
|
0 |
0 |
if ($skt->can('autoflush')) { } |
|
914
|
0 |
0 |
if ($io->can('close')) { } |
|
934
|
0 |
0 |
if ($pattern) |
|
947
|
0 |
0 |
unless ($disable_star) |
|
960
|
0 |
0 |
if ($pattern) |
|
963
|
0 |
0 |
if ($pattern =~ /[*]/) |
|
979
|
0 |
0 |
if ($pattern) |
|
994
|
0 |
0 |
if ($pattern) |
|
1008
|
0 |
0 |
if ($self->command('MLST', $file, @_)->response == 2) |
|
1024
|
0 |
0 |
unless $features |
|
1027
|
0 |
0 |
unless defined $feat_lst and defined $file and $file |
|
1029
|
0 |
0 |
if $lowercase |
|
1035
|
0 |
0 |
unless $_ =~ /=/ |
|
1038
|
0 |
0 |
unless $tag |
|
1040
|
0 |
0 |
defined $val ? : |
|
1061
|
0 |
0 |
unless ($self->prep_data_channel($lst_cmd)) |
|
1066
|
0 |
0 |
unless ($self->command($lst_cmd, $path)->response == 1) |
|
1076
|
0 |
0 |
unless (defined $io) |
|
1081
|
0 |
0 |
unless (defined $len) |
|
1082
|
0 |
0 |
if $! == 4 |
|
1094
|
0 |
0 |
if ($self->response != 2) |
|
1108
|
0 |
0 |
if ($lst_cmd eq 'LIST') |
|
1109
|
0 |
0 |
if $dati =~ s/^\s*total\s+\d+\s*$//im |
|
1114
|
0 |
0 |
if ($pattern) |
|
1122
|
0 |
0 |
if $mlsd_flg |
|
1128
|
0 |
0 |
if ($len > 0) |
|
1131
|
0 |
0 |
if ($cb) |
|
1133
|
0 |
0 |
if $mlsd_flg |
|
1141
|
0 |
0 |
if $mlsd_flg |
|
1142
|
0 |
0 |
if ($trail) |
|
1146
|
0 |
0 |
$dati ? : |
|
1155
|
0 |
0 |
if ($data and $pattern) |
|
1159
|
0 |
0 |
if $_ =~ /$pattern/i |
|
1162
|
0 |
0 |
if $data |
|
1174
|
0 |
0 |
if ($data and $ftype) |
|
1182
|
0 |
0 |
if ($_ =~ /(^|;)type=([^;]*);/i) |
|
1191
|
0 |
0 |
if ($ftype == 1 and $isRegDir) { } |
|
|
0 |
0 |
elsif ($ftype == 2 and $isFile) { } |
|
|
0 |
0 |
elsif ($ftype == 3 and not $isDir and not $isFile) { } |
|
|
0 |
0 |
elsif ($ftype == 4 and $isSpecialDir) { } |
|
1203
|
0 |
0 |
unless ($type_active) |
|
1208
|
0 |
0 |
if $data |
|
1219
|
0 |
0 |
unless -f $file_name |
|
1220
|
0 |
0 |
if do {
*$self
}->{'_FTPSSL_arguments'}{'type'} eq 'I' |
|
1224
|
0 |
0 |
unless (open $fd, "< $file_name") |
|
1240
|
0 |
0 |
unless (defined $len) |
|
1241
|
0 |
0 |
unless ($! == 4) |
|
1258
|
0 |
0 |
unless defined $offset |
|
1260
|
0 |
0 |
if ($offset > $max_offset) |
|
1266
|
0 |
0 |
if $offset == $max_offset |
|
1270
|
0 |
0 |
unless (open $fd, "+< $file_name") |
|
1276
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'type'} eq 'I') { } |
|
1277
|
0 |
0 |
unless (binmode $fd) |
|
1291
|
0 |
0 |
if $size > $offset |
|
1302
|
0 |
0 |
if ($diff == -1 and $cr_only) |
|
1312
|
0 |
0 |
if ($diff == 0) |
|
1318
|
0 |
0 |
if ($diff > 0) { } |
|
1320
|
0 |
0 |
if $size > $diff |
|
1330
|
0 |
0 |
unless $pos |
|
1333
|
0 |
0 |
unless (defined $len) |
|
1334
|
0 |
0 |
unless ($! == 4) |
|
1341
|
0 |
0 |
unless ($pos) |
|
1346
|
0 |
0 |
unless (truncate $fd, $pos) |
|
1364
|
0 |
0 |
if ($offset < -1) |
|
1371
|
0 |
0 |
unless ($file_loc) |
|
1377
|
0 |
0 |
if ($self->_isa_glob($file_loc)) { } |
|
1378
|
0 |
0 |
if ($offset == -1) |
|
1386
|
0 |
0 |
if ($offset == -1) { } |
|
|
0 |
0 |
elsif ($offset) { } |
|
1388
|
0 |
0 |
unless defined $offset |
|
1391
|
0 |
0 |
unless defined $offset |
|
1395
|
0 |
0 |
$offset ? : |
|
1396
|
0 |
0 |
unless (open $localfd, "$mode $file_loc") |
|
1404
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'type'} eq 'I') |
|
1405
|
0 |
0 |
unless (binmode $localfd) |
|
1406
|
0 |
0 |
if ($close_file) |
|
1408
|
0 |
0 |
unless $offset |
|
1415
|
0 |
0 |
unless ($self->prep_data_channel('RETR', $file_rem)) |
|
1416
|
0 |
0 |
if ($close_file) |
|
1418
|
0 |
0 |
unless $offset |
|
1425
|
0 |
0 |
defined $c && $c eq 'Net::FTPSSL::xget' ? : |
|
1426
|
0 |
0 |
$cb_idx == 1 ? : |
|
1430
|
0 |
0 |
$offset ? : |
|
1431
|
0 |
0 |
unless ($rest and $self->_retr($file_rem)) |
|
1432
|
0 |
0 |
if ($close_file) |
|
1434
|
0 |
0 |
unless $offset |
|
1437
|
0 |
0 |
if ($offset and $rest) |
|
1449
|
0 |
0 |
unless (defined $io) |
|
1450
|
0 |
0 |
if ($close_file) |
|
1452
|
0 |
0 |
unless $offset |
|
1458
|
0 |
0 |
if $trace_flag |
|
1465
|
0 |
0 |
unless (defined $len) |
|
1466
|
0 |
0 |
if $! == 4 |
|
1467
|
0 |
0 |
if $close_file |
|
1471
|
0 |
0 |
if ($fix_cr_issue) |
|
1473
|
0 |
0 |
if ($data eq "\r") |
|
1482
|
0 |
0 |
if ($last_char eq "\r") { } |
|
|
0 |
0 |
elsif ($prev ne '') { } |
|
1497
|
0 |
0 |
if $trace_flag and $cnt % 10 == 0 |
|
1502
|
0 |
0 |
if ($len > 0) |
|
1504
|
0 |
0 |
unless defined $written |
|
1510
|
0 |
0 |
if ($prev ne '') |
|
1513
|
0 |
0 |
if ($len > 0) |
|
1515
|
0 |
0 |
unless defined $written |
|
1523
|
0 |
0 |
if ($trail) |
|
1525
|
0 |
0 |
unless defined $written |
|
1529
|
0 |
0 |
if $trace_flag |
|
1534
|
0 |
0 |
if ($self->response != 2) |
|
1535
|
0 |
0 |
if $close_file |
|
1539
|
0 |
0 |
if ($close_file) |
|
1541
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'FixGetTs'}) |
|
1543
|
0 |
0 |
if $tm |
|
1555
|
0 |
0 |
if ($resp and do {
*$self
}->{'_FTPSSL_arguments'}{'FixPutTs'} and defined $tm) |
|
1566
|
0 |
0 |
if ($resp and do {
*$self
}->{'_FTPSSL_arguments'}{'FixPutTs'} and defined $tm) |
|
1578
|
0 |
0 |
if ($resp) |
|
1586
|
0 |
0 |
if ($msg =~ /(FILE|name):\s*([^\s)]+)($|[\s)])/im) { } |
|
|
0 |
0 |
elsif ($msg =~ /Transfer starting for\s+([^\s]+)($|\s)/im) { } |
|
|
0 |
0 |
elsif (do {
*$self
}->{'_FTPSSL_arguments'}{'uput'} == 1) { } |
|
1610
|
0 |
0 |
if ($requested_file_name ne '?') |
|
1613
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'FixPutTs'} and defined $tm) |
|
1636
|
0 |
0 |
if $self->last_status_code != 2 |
|
1645
|
0 |
0 |
if (defined $found_file) |
|
1648
|
0 |
0 |
unless $before{$_} |
|
1653
|
0 |
0 |
if ($cnt == 1) { } |
|
1660
|
0 |
0 |
if ($cnt == 1 and do {
*$self
}->{'_FTPSSL_arguments'}{'FixPutTs'} and not $self->_isa_glob($file_loc)) |
|
1682
|
0 |
0 |
unless defined $prefix |
|
1683
|
0 |
0 |
unless defined $postfix |
|
1689
|
0 |
0 |
if (defined $c and $c eq 'Net::FTPSSL::xput' || $c eq 'Net::FTPSSL::xtransfer') { } |
|
1703
|
0 |
0 |
if ($base ne $file) |
|
1706
|
0 |
0 |
if ($pbase eq $prefix) |
|
1717
|
0 |
0 |
if ($scratch_name eq $file) |
|
1732
|
0 |
0 |
unless ($file_rem) |
|
1733
|
0 |
0 |
if ($self->_isa_glob($file_loc)) |
|
1742
|
0 |
0 |
unless $scratch_name |
|
1744
|
0 |
0 |
unless ($self->all_supported('STOR', 'DELE', 'RNFR', 'RNTO')) |
|
1755
|
0 |
0 |
if ($resp) |
|
1769
|
0 |
0 |
if ($resp and do {
*$self
}->{'_FTPSSL_arguments'}{'FixPutTs'} and defined $tm) |
|
1776
|
0 |
0 |
unless ($resp) |
|
1796
|
0 |
0 |
unless ($file_loc) |
|
1800
|
0 |
0 |
if ($self->_isa_glob($file_loc)) |
|
1806
|
0 |
0 |
unless $scratch_name |
|
1808
|
0 |
0 |
if (defined do {
*$self
}->{'_FTPSSL_arguments'}{'net_ftpssl_rest_offset'}) |
|
1816
|
0 |
0 |
if ($resp) |
|
1819
|
0 |
0 |
unless move($scratch_name, $file_loc) |
|
1837
|
0 |
0 |
if (ref $dest_ftp eq '' or ref $dest_ftp ne 'Net::FTPSSL') |
|
1852
|
0 |
0 |
if ($stmp != $dtmp) |
|
1860
|
0 |
0 |
if ($stmp ne $dtmp) |
|
1870
|
0 |
0 |
if (ref $remote_file or $remote_file eq '') |
|
1873
|
0 |
0 |
if (ref $dest_file or $dest_file eq '') |
|
1876
|
0 |
0 |
if ($offset < -1) |
|
1882
|
0 |
0 |
defined $c && $c eq 'Net::FTPSSL::xtransfer' ? : |
|
1883
|
0 |
0 |
$cb_idx == 1 ? : |
|
1884
|
0 |
0 |
$cb_idx == 1 ? : |
|
1890
|
0 |
0 |
if ($offset == -1) |
|
1892
|
0 |
0 |
unless defined $offset |
|
1898
|
0 |
0 |
unless $dest_ftp->prep_data_channel('STOR', $dest_file) |
|
1899
|
0 |
0 |
$offset ? : |
|
1901
|
0 |
0 |
unless ($restart and $response) |
|
1902
|
0 |
0 |
if $restart and $offset |
|
1907
|
0 |
0 |
unless defined $dio |
|
1912
|
0 |
0 |
unless ($self->prep_data_channel('RETR', $remote_file)) |
|
1917
|
0 |
0 |
$offset ? : |
|
1918
|
0 |
0 |
unless ($rest and $self->_retr($remote_file)) |
|
1919
|
0 |
0 |
if ($offset and $rest) |
|
1930
|
0 |
0 |
unless (defined $sio) |
|
1937
|
0 |
0 |
if $trace_flag |
|
1945
|
0 |
0 |
unless (defined $len) |
|
1946
|
0 |
0 |
if $! == 4 |
|
1952
|
0 |
0 |
if $trace_flag and $cnt % 10 == 0 |
|
1958
|
0 |
0 |
if ($len > 0) |
|
1960
|
0 |
0 |
unless (defined $written) |
|
1974
|
0 |
0 |
if ($trail and $len > 0) |
|
1976
|
0 |
0 |
unless (defined $written) |
|
1983
|
0 |
0 |
if $trace_flag |
|
1991
|
0 |
0 |
if ($resp1 != 2 or $resp2 != 2) |
|
1996
|
0 |
0 |
if ($cb_idx == 1 and $sArg->{'FixGetTs'} and $dArg->{'FixPutTs'}) |
|
2016
|
0 |
0 |
if (ref $dest_ftp eq '' or ref $dest_ftp ne 'Net::FTPSSL') |
|
2023
|
0 |
0 |
if (defined $sArg->{'net_ftpssl_rest_offset'}) |
|
2026
|
0 |
0 |
if (defined $dArg->{'net_ftpssl_rest_offset'}) |
|
2030
|
0 |
0 |
if ($self->_isa_glob($remote_file)) |
|
2033
|
0 |
0 |
if ($self->_isa_glob($dest_file)) |
|
2038
|
0 |
0 |
unless ($dest_ftp->all_supported('STOR', 'DELE', 'RNFR', 'RNTO')) |
|
2044
|
0 |
0 |
unless $scratch_name |
|
2048
|
0 |
0 |
if ($sdie != $ddie) |
|
2059
|
0 |
0 |
if ($resp) |
|
2073
|
0 |
0 |
if ($resp and $sArg->{'FixGetTs'} and $dArg->{'FixPutTs'}) |
|
2081
|
0 |
0 |
unless ($resp) |
|
2100
|
0 |
0 |
if ($offset >= $len) { } |
|
|
0 |
0 |
elsif ($offset) { } |
|
2126
|
0 |
0 |
if ($self->_isa_glob($file_loc) and not $file_rem) |
|
2130
|
0 |
0 |
unless ($file_rem) |
|
2134
|
0 |
0 |
if ($offset < -1) |
|
2143
|
0 |
0 |
if ($offset and $func ne 'put' and $func ne 'append') |
|
2147
|
0 |
0 |
if ($offset == -1) |
|
2149
|
0 |
0 |
unless (defined $offset) |
|
2159
|
0 |
0 |
if ($self->_isa_glob($file_loc)) { } |
|
2163
|
0 |
0 |
unless (open $localfd, "< $file_loc") |
|
2170
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'type'} eq 'I') |
|
2171
|
0 |
0 |
unless (binmode $localfd) |
|
2179
|
0 |
0 |
if ($func eq 'uput') { } |
|
|
0 |
0 |
elsif ($func eq 'xput') { } |
|
|
0 |
0 |
elsif ($func eq 'put') { } |
|
|
0 |
0 |
elsif ($func eq 'append') { } |
|
2189
|
0 |
0 |
unless ($self->prep_data_channel($cmd, $file_rem)) |
|
2190
|
0 |
0 |
if $close_file |
|
2195
|
0 |
0 |
unless (defined do {
*$self
}->{'_FTPSSL_arguments'}{'alloc_size'}) |
|
2196
|
0 |
0 |
if ($close_file and -f $file_loc) |
|
2206
|
0 |
0 |
if ($func eq 'uput') { } |
|
|
0 |
0 |
elsif ($func eq 'xput') { } |
|
|
0 |
0 |
elsif ($func eq 'put') { } |
|
|
0 |
0 |
elsif ($func eq 'append') { } |
|
2211
|
0 |
0 |
$offset ? : |
|
2219
|
0 |
0 |
unless ($restart and $response) |
|
2220
|
0 |
0 |
if $close_file |
|
2221
|
0 |
0 |
if ($restart and $offset and $func eq 'get') |
|
2228
|
0 |
0 |
unless $close_file |
|
2235
|
0 |
0 |
unless (defined $io) |
|
2236
|
0 |
0 |
if $close_file |
|
2241
|
0 |
0 |
if $trace_flag |
|
2247
|
0 |
0 |
unless (defined $len) |
|
2248
|
0 |
0 |
if $! == 4 |
|
2254
|
0 |
0 |
if ($fix_cr_issue) |
|
2260
|
0 |
0 |
if ($offset) |
|
2264
|
0 |
0 |
if $trace_flag and $cnt % 10 == 0 |
|
2267
|
0 |
0 |
if ($len > 0) |
|
2269
|
0 |
0 |
unless defined $written |
|
2278
|
0 |
0 |
if ($trail) |
|
2279
|
0 |
0 |
if ($fix_cr_issue) |
|
2285
|
0 |
0 |
if ($offset) |
|
2289
|
0 |
0 |
if ($len > 0) |
|
2291
|
0 |
0 |
unless defined $written |
|
2296
|
0 |
0 |
if $trace_flag |
|
2299
|
0 |
0 |
if ($close_file) |
|
2301
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'FixPutTs'}) |
|
2309
|
0 |
0 |
if ($self->response != 2) |
|
2324
|
0 |
0 |
if ($self->supported('ALLO') and $self->_alloc($size)) { } |
|
2351
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'last_ftp_msg'} =~ /\"(.*)\".*/) { } |
|
2422
|
0 |
0 |
if (exists $arg->{'OverrideHELP'} and $cmd eq 'HELP') { } |
|
|
0 |
0 |
elsif ($arg->{'OverrideHELP'} or $help->{$cmd}) { } |
|
2432
|
0 |
0 |
if ($result and $cmd eq 'SITE' and $sub_cmd ne '') |
|
2434
|
0 |
0 |
if ($help2->{$sub_cmd}) { } |
|
|
0 |
0 |
elsif (scalar keys %{$help2;} > 0) { } |
|
2448
|
0 |
0 |
if ($result and $cmd eq 'FEAT' and $sub_cmd ne '') |
|
2450
|
0 |
0 |
if (exists $feat2->{$sub_cmd}) { } |
|
2452
|
0 |
0 |
if (exists $feat2->{'OPTS'} and exists $feat2->{'OPTS'}{$sub_cmd}) |
|
2463
|
0 |
0 |
if ($result and $cmd eq 'OPTS' and $sub_cmd ne '') |
|
2465
|
0 |
0 |
if (exists $feat3->{'OPTS'} and exists $feat3->{'OPTS'}{$sub_cmd}) { } |
|
|
0 |
0 |
elsif (exists $feat3->{'sub_cmd'}) { } |
|
2487
|
0 |
0 |
unless defined $_ and $_ ne '' |
|
2489
|
0 |
0 |
if $self->supported($_) |
|
2493
|
0 |
0 |
$cnt >= 1 ? : |
|
2504
|
0 |
0 |
if do {
*$self
}->{'_FTPSSL_arguments'}{'OverrideHELP'} |
|
2508
|
0 |
0 |
unless defined $help |
|
2518
|
0 |
0 |
if $key eq 'HELP' and $help_flag |
|
2520
|
0 |
0 |
if ($mode and not exists $help->{$key}) { } |
|
|
0 |
0 |
elsif (not $mode and exists $help->{$key}) { } |
|
2539
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'Crypt'} eq 'C') |
|
2545
|
0 |
0 |
unless ($self->_pbsz and $self->_prot($prot)) |
|
2554
|
0 |
0 |
$self->supported('NOOP') ? : |
|
2557
|
0 |
0 |
unless ($self->command('CCC')->response == 2) |
|
2574
|
0 |
0 |
unless ($self->stop_SSL('SSL_no_shutdown', 0, 'SSL_fast_shutdown', 1)) |
|
2596
|
0 |
0 |
if defined $ok and $ok eq 2 |
|
2600
|
0 |
0 |
if ($ok == 2) |
|
2628
|
0 |
0 |
defined $cmd ? : |
|
2629
|
0 |
0 |
if $cmd2 =~ /^\s*(\S+)(\s|$)/ |
|
2634
|
0 |
0 |
if ($cmd2 eq 'STOR' or $cmd2 eq 'RETR' or $cmd2 eq 'NLST' or $cmd2 eq 'LIST' or $cmd2 eq 'STOU' or $cmd2 eq 'APPE' or $cmd2 eq 'MLSD') { } |
|
|
0 |
0 |
elsif ($cmd2 eq 'CCC') { } |
|
|
0 |
0 |
elsif ($cmd2 eq '') { } |
|
|
0 |
0 |
elsif ($cmd2 eq 'HELP' and exists do {
*$self
}->{'_FTPSSL_arguments'}{'OverrideHELP'} || exists do {
*$self
}->{'_FTPSSL_arguments'}{'removeHELP'}) { } |
|
2657
|
0 |
0 |
if ($msg ne '') |
|
2708
|
0 |
0 |
if ($slp) |
|
2739
|
0 |
0 |
if ($resp and $opt ne do {
*$self
}->{'_FTPSSL_arguments'}{'data_prot'}) |
|
2798
|
0 |
0 |
if $res == 1 |
|
2803
|
0 |
0 |
if ($res == 5 and $msg =~ /Invalid number of parameters/) |
|
2847
|
0 |
0 |
if (defined $local) { } |
|
|
0 |
0 |
elsif (do {
*$self
}->{'_FTPSSL_arguments'}{'FixPutTs'} < 0) { } |
|
2848
|
0 |
0 |
$local ? : |
|
2857
|
0 |
0 |
if ($GMT_flag) { } |
|
2887
|
0 |
0 |
if ($msg =~ /(^|\D)(\d{14})($|\D)/) { } |
|
|
0 |
0 |
elsif ($msg =~ /(^|\D)19(\d{3})(\d{10})($|\D)/) { } |
|
2913
|
0 |
0 |
if ($self->command('MDTM', @_)->response == 2) |
|
2931
|
0 |
0 |
if (defined $local) { } |
|
|
0 |
0 |
elsif (do {
*$self
}->{'_FTPSSL_arguments'}{'FixGetTs'} < 0) { } |
|
2932
|
0 |
0 |
$local ? : |
|
2938
|
0 |
0 |
if ($self->command('MDTM', $remote_file)->response == 2) |
|
2942
|
0 |
0 |
if (defined $time_str and $time_str =~ /^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$/) |
|
2948
|
0 |
0 |
if ($GMT_flag) { } |
|
2967
|
0 |
0 |
if ($self->supported('SIZE')) |
|
2968
|
0 |
0 |
if ($self->command('SIZE', $file, @_)->response == 2 and $self->message =~ /\d+\s+(\d+)($|\D)/) |
|
2980
|
0 |
0 |
if ($self->supported('MLST') and not $skip_mlst) |
|
2983
|
0 |
0 |
if ($data) |
|
2984
|
0 |
0 |
if (exists $data->{'size'}) { } |
|
|
0 |
0 |
elsif (exists $data->{'type'}) { } |
|
2990
|
0 |
0 |
if $t eq 'dir' or $t eq 'cdir' or $t eq 'pdir' |
|
2999
|
0 |
0 |
if ($self->supported('STAT') and not $skip_stat) |
|
3000
|
0 |
0 |
if ($self->command('STAT', $file, @_)->response == 2) |
|
3006
|
0 |
0 |
if ($cnt == 3 and $msg[1] =~ /\s(\d+)\s+$rFile/) |
|
3010
|
0 |
0 |
if ($cnt == 3 and $msg[1] =~ /\s(\d+)\s+(\S+)\s+(\d+)\s+(\d+:\d+)\s+$rFile/) |
|
3040
|
0 |
0 |
if ($self->supported('MLST')) |
|
3045
|
0 |
0 |
if ($data) |
|
3046
|
0 |
0 |
if (exists $data->{'type'}) |
|
3048
|
0 |
0 |
$t eq 'file' ? : |
|
3060
|
0 |
0 |
if (defined $size and $size >= 0) |
|
3081
|
0 |
0 |
if ($self->supported('MLST')) |
|
3086
|
0 |
0 |
if ($data) |
|
3087
|
0 |
0 |
if (exists $data->{'type'}) |
|
3089
|
0 |
0 |
$t eq 'dir' || $t eq 'cdir' || $t eq 'pdir' ? : |
|
3098
|
0 |
0 |
if ($self->cwd($dir)) { } |
|
3135
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
3138
|
0 |
0 |
if (exists do {
*$self
}->{'_FTPSSL_arguments'}{'myContext'}) |
|
3145
|
0 |
0 |
if (exists do {
*$self
}->{'_SSL_arguments'}{$_}) { } |
|
|
0 |
0 |
elsif (exists do {
*$self
}->{'_FTPSSL_arguments'}{'start_SSL_opts'}{$_}) { } |
|
|
0 |
0 |
elsif (exists do {
*$self
}->{$_}) { } |
|
3164
|
0 |
0 |
if ($cnt > 0) |
|
3168
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'debug'}) |
|
3177
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
3180
|
0 |
0 |
if (exists do {
*$self
}->{'_FTPSSL_arguments'}{'myContext'}) |
|
3188
|
0 |
0 |
if (defined $val) { } |
|
|
0 |
0 |
elsif (exists $dcValues{$key}) { } |
|
3201
|
0 |
0 |
if ($cnt > 0) |
|
3205
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'debug'}) |
|
3239
|
0 |
0 |
unless ($all_cmds or exists $arg->{'help_cmds_msg'}) |
|
3245
|
0 |
0 |
if (exists $arg->{'removeHELP'} and $arg->{'removeHELP'} == 1) |
|
3247
|
0 |
0 |
if scalar keys %{$ft;} > 0 |
|
3259
|
0 |
0 |
if ($all_cmds and exists $arg->{'help_cmds_msg'}) { } |
|
|
0 |
0 |
elsif (exists $$arg{"help_${cmd}_msg"}) { } |
|
|
0 |
0 |
elsif (exists $arg->{'help_cmds_no_syntax_available'}) { } |
|
3262
|
0 |
0 |
if exists $arg->{$key} |
|
3268
|
0 |
0 |
if exists $arg->{$key} |
|
3272
|
0 |
0 |
if (exists $arg->{'help_cmds_found'}{$cmd} or $arg->{'OverrideHELP'}) { } |
|
3284
|
0 |
0 |
if ($all_cmds) { } |
|
3287
|
0 |
0 |
if $sts != 2 |
|
3294
|
0 |
0 |
if $sts != 2 |
|
3297
|
0 |
0 |
if (not $all_cmds and $arg->{'help_cmds_msg'} eq $self->last_message) |
|
3304
|
0 |
0 |
if ($all_cmds) { } |
|
|
0 |
0 |
elsif ($site_cmd) { } |
|
3309
|
0 |
0 |
if (scalar keys %help > 0) |
|
3310
|
0 |
0 |
if ($help{'FEAT'}) |
|
3314
|
0 |
0 |
unless exists $help{$_} |
|
3320
|
0 |
0 |
if ($help{'SITE'}) |
|
3323
|
0 |
0 |
if $self->last_status_code == 2 |
|
3327
|
0 |
0 |
if (scalar keys %siteHelp == 0) |
|
3341
|
0 |
0 |
if (scalar keys %help > 0) |
|
3372
|
0 |
0 |
if ($ok) |
|
3375
|
0 |
0 |
if (scalar keys %{$siteHelp;} > 0) |
|
3376
|
0 |
0 |
if (defined $help) |
|
3377
|
0 |
0 |
unless exists $help->{'SITE'} |
|
3379
|
0 |
0 |
unless exists $siteHelp->{'HELP'} |
|
3383
|
0 |
0 |
if $msg |
|
3400
|
0 |
0 |
$site_cmd ? : |
|
3412
|
0 |
0 |
if $line eq '' |
|
3424
|
0 |
0 |
if ($site_cmd and $lst[0] eq 'SITE' and $lst[1] =~ /^[A-Z]+$/) { } |
|
|
0 |
0 |
elsif (not $line =~ /[a-z()]/) { } |
|
3433
|
0 |
0 |
if (not $_ =~ /^(.+)[*]$/) { } |
|
|
0 |
0 |
elsif ($site_cmd == 0) { } |
|
3460
|
0 |
0 |
if (exists $arg->{'help_FEAT_msg2'}) |
|
3505
|
0 |
0 |
if (exists $arg->{'help_FEAT_found2'} and not exists $arg->{'help_FEAT_found2'}{'OPTS'}) |
|
3514
|
0 |
0 |
if ($arg->{'removeHELP'}) { } |
|
|
0 |
0 |
elsif (exists $arg->{'OverrideHELP'}) { } |
|
3518
|
0 |
0 |
if ($remove == 0) |
|
3520
|
0 |
0 |
if $#lst != -1 |
|
3526
|
0 |
0 |
if ($remove ne '') |
|
3533
|
0 |
0 |
if ($remove ne '') |
|
3539
|
0 |
0 |
if ($status == 2) |
|
3550
|
0 |
0 |
if defined $lead and $lead =~ /^\d+[\s-]?$/ |
|
3552
|
0 |
0 |
if $line eq '' |
|
3559
|
0 |
0 |
if $part[0] =~ /[*]$/ or defined $part[1] and $part[1] eq '*' |
|
3562
|
0 |
0 |
if ($#part == 0) { } |
|
3571
|
0 |
0 |
if ($may_change) |
|
3578
|
0 |
0 |
exists $res{'OPTS'} ? : |
|
3589
|
0 |
0 |
unless (exists $arg->{'help_FEAT_msg2'}) |
|
3595
|
0 |
0 |
unless ($status == 2 or $disable_croak) |
|
3613
|
0 |
0 |
if (defined $turn_on) |
|
3614
|
0 |
0 |
if ($turn_on) { } |
|
|
0 |
0 |
elsif (exists do {
*$self
}->{'_FTPSSL_arguments'}{'Croak'}) { } |
|
3633
|
0 |
0 |
unless ($true) |
|
3635
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'Croak'}) |
|
3637
|
0 |
0 |
if (defined $c and $c ne 'Net::FTPSSL::login') |
|
3662
|
0 |
0 |
if (defined $self) { } |
|
3668
|
0 |
0 |
if $should_we_print |
|
3669
|
0 |
0 |
if $should_we_die |
|
3679
|
0 |
0 |
if (defined $replace_mode and uc($msg || '') ne '') |
|
3680
|
0 |
0 |
if ($replace_mode and uc(do {
*$self
}->{'_FTPSSL_arguments'}{'last_ftp_msg'} || '') ne '') { } |
|
3687
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'Croak'}) |
|
3692
|
0 |
0 |
if (ref $self eq 'Net::FTPSSL' and not exists do {
*$self
}->{'_FTPSSL_arguments'}{'_command_failed_'} and not exists do {
*$self
}->{'_FTPSSL_arguments'}{'recursion'} and $c ne 'Net::FTPSSL::command' and $c ne 'Net::FTPSSL::response') |
|
3706
|
0 |
0 |
if (defined $replace_mode and uc($msg || '') ne '' and do {
*$self
}->{'_FTPSSL_arguments'}{'debug'} == 2) |
|
3715
|
0 |
0 |
if (defined $replace_mode and uc($msg || '') ne '' and do {
*$self
}->{'_FTPSSL_arguments'}{'debug'}) |
|
3744
|
0 |
0 |
/\n/ ? : |
|
3750
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'debug'}) |
|
3751
|
0 |
0 |
ref $self eq 'Net::FTPSSL' ? : |
|
3752
|
0 |
0 |
if ($data =~ /^PASS\s/) { } |
|
|
0 |
0 |
elsif ($data =~ /^USER\s/) { } |
|
3765
|
0 |
0 |
unless (defined $written) |
|
3813
|
0 |
0 |
if exists do {
*$self
}->{'_FTPSSL_arguments'}{'_command_failed_'} |
|
3816
|
0 |
0 |
ref $self eq 'Net::FTPSSL' ? : |
|
3820
|
0 |
0 |
do {
*$self
}->{'_FTPSSL_arguments'}{'debug'} && do {
*$self
}->{'_FTPSSL_arguments'}{'debug_extra'} ? : |
|
3829
|
0 |
0 |
if (exists do {
*$self
}->{'_FTPSSL_arguments'}{'next_ftp_msg'}) |
|
3830
|
0 |
0 |
if do {
*$self
}->{'_FTPSSL_arguments'}{'debug'} |
|
3834
|
0 |
0 |
if ($done and $complete) |
|
3848
|
0 |
0 |
if ($res > 0) { } |
|
|
0 |
0 |
elsif (do {
*$self
}->{'_FTPSSL_arguments'}{'last_ftp_msg'} ne '') { } |
|
3854
|
0 |
0 |
if $done and $complete |
|
3858
|
0 |
0 |
if ($done and $complete) { } |
|
|
0 |
0 |
elsif ($cnt == 0 or $! ne '') { } |
|
3863
|
0 |
0 |
if ($cnt > 0) |
|
3904
|
0 |
0 |
$bracket == 2 ? : |
|
3907
|
0 |
0 |
unless (defined $msg) |
|
3911
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'debug'}) |
|
3913
|
0 |
0 |
if (exists do {
*$self
}->{'_FTPSSL_arguments'}{'_hide_value_in_response_'}) |
|
3919
|
0 |
0 |
if ($bracket) { } |
|
3925
|
0 |
0 |
if (defined $sep and not $sep =~ /^\s*$/) |
|
4011
|
0 |
0 |
substr(${$data_ref;}, -2) eq "\r\n" ? : |
|
4013
|
0 |
0 |
if ($debug) |
|
4014
|
0 |
0 |
exists do {
*$self
}->{'_FTPSSL_arguments'}{'next_ftp_msg'} ? : |
|
4015
|
0 |
0 |
$ccc_kludge ? : |
|
4020
|
0 |
0 |
if (exists do {
*$self
}->{'_FTPSSL_arguments'}{'next_ftp_msg'}) { } |
|
4031
|
0 |
0 |
if (substr(${$data_ref;}, 0, 1) eq "\n") |
|
4033
|
0 |
0 |
if (substr(${$ref;}, -1) eq "\r") |
|
4036
|
0 |
0 |
if $debug |
|
4037
|
0 |
0 |
if (${$data_ref;} eq "\n") |
|
4045
|
0 |
0 |
if (${$ref;} ne '' and substr(${$ref;}, -length($splt)) ne $splt) |
|
4051
|
0 |
0 |
if ($end_with_cr) { } |
|
4068
|
0 |
0 |
if (exists do {
*$self
}->{'_FTPSSL_arguments'}{'next_ftp_msg'}) { } |
|
4093
|
0 |
0 |
if ($done) |
|
4104
|
0 |
0 |
if ($test =~ /^(\d{3})([-\s])(.*)$/s) |
|
4106
|
0 |
0 |
$sep eq ' ' ? : |
|
4109
|
0 |
0 |
$sep eq ' ' ? : |
|
4116
|
0 |
0 |
if ($ccc_kludge and $term and not $done) |
|
4117
|
0 |
0 |
if $debug |
|
4126
|
0 |
0 |
if $debug |
|
4129
|
0 |
0 |
if ($sep eq '-' and $term) |
|
4147
|
0 |
0 |
if $debug |
|
4149
|
0 |
0 |
if (not exists do {
*$self
}->{'_FTPSSL_arguments'}{'next_ftp_msg'}) { } |
|
|
0 |
0 |
elsif ($trunc ne '') { } |
|
4162
|
0 |
0 |
if ($test =~ /^(\d{3})([-\s])(.*)$/s) |
|
4164
|
0 |
0 |
$sep eq ' ' ? : |
|
4167
|
0 |
0 |
$sep eq ' ' ? : |
|
4172
|
0 |
0 |
if ($end_with_cr and exists do {
*$self
}->{'_FTPSSL_arguments'}{'next_ftp_msg'}) |
|
4177
|
0 |
0 |
if ($ccc_kludge and $next_kludge and not $end_response && $response_complete) |
|
4178
|
0 |
0 |
if $debug |
|
4205
|
0 |
0 |
if (defined $self and do {
*$self
}->{'_FTPSSL_arguments'}{'debug'} and $force || exists do {
*$self
}->{'_FTPSSL_arguments'}{'ftpssl_filehandle'}) |
|
4216
|
0 |
0 |
unless (exists $warn_list{'OTHER'}) |
|
4237
|
0 |
0 |
if $_ eq 'OTHER' |
|
4243
|
0 |
0 |
if (exists $warn_list{'OTHER'} and defined $warn_list{'OTHER'}) |
|
4245
|
0 |
0 |
if (ref $func_ref eq 'CODE') { } |
|
|
0 |
0 |
elsif ($func_ref eq '' or $func_ref eq 'DEFAULT') { } |
|
|
0 |
0 |
elsif ($func_ref ne 'IGNORE') { } |
|
4261
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'debug'}) |
|
4264
|
0 |
0 |
if (exists $warn_list{$self}) |
|
4282
|
0 |
16 |
if (exists $warn_list{'OTHER'}) |
|
4316
|
0 |
0 |
if (defined do {
*$self
}->{'_FTPSSL_arguments'}{'last_ftp_msg'}) |
|
4327
|
0 |
0 |
if (defined do {
*$self
}->{'_FTPSSL_arguments'}{'last_ftp_msg'}) |
|
4350
|
0 |
0 |
if (defined $func_ref and defined $end_func_ref) { } |
|
4372
|
0 |
0 |
if (defined do {
*$self
}->{'_FTPSSL_arguments'}{'callback_end_func'}) |
|
4377
|
0 |
0 |
if (defined $res) |
|
4378
|
0 |
0 |
if ($res eq '') { } |
|
4400
|
0 |
0 |
if (defined do {
*$self
}->{'_FTPSSL_arguments'}{'callback_func'}) |
|
4410
|
0 |
0 |
defined $data_len_ref ? : |
|
4412
|
0 |
0 |
if (wantarray) |
|
4442
|
0 |
0 |
if defined $host |
|
4448
|
0 |
0 |
if (ref $obj eq 'HASH') { } |
|
4467
|
0 |
0 |
unless (defined $host) |
|
4468
|
0 |
0 |
unless /^(io_|_SSL|SSL)/ |
|
4470
|
0 |
0 |
$hash ? : |
|
4476
|
0 |
0 |
if (defined $sep and not $sep =~ /^\s*$/) { } |
|
4496
|
0 |
0 |
$lvl == 0 ? : |
|
4497
|
0 |
0 |
defined $sep_ref->[$lvl] ? : |
|
4500
|
0 |
0 |
unless defined $val |
|
4503
|
0 |
0 |
unless ref $val |
|
4506
|
0 |
0 |
if $val =~ /SCALAR\(0/ |
|
4513
|
0 |
0 |
if ($val =~ /ARRAY\(0/) { } |
|
|
0 |
0 |
elsif ($val =~ /HASH\((0x[\da-zA-Z]+)\)/) { } |
|
4523
|
0 |
0 |
if (exists $loop_ref->{$key}) { } |
|
4553
|
0 |
0 |
if (defined $self and exists do {
*$self
}->{'_FTPSSL_arguments'}{'ftpssl_filehandle'}) { } |
|
|
0 |
0 |
elsif (defined $FTPS_ERROR) { } |
|
4573
|
0 |
0 |
if (defined $self and do {
*$self
}->{'_FTPSSL_arguments'}{'debug'}) |
|
4583
|
0 |
0 |
if (defined $self and exists do {
*$self
}->{'_FTPSSL_arguments'}{'ftpssl_filehandle'}) |
|
4594
|
0 |
0 |
if (defined $self and exists do {
*$self
}->{'_FTPSSL_arguments'}{'ftpssl_filehandle'}) |
|
4596
|
0 |
0 |
if do {
*$self
}->{'_FTPSSL_arguments'}{'debug'} == 2 |
|
4610
|
0 |
0 |
if (defined $fh) |
|
4612
|
0 |
0 |
if ($tmp) |
|
4613
|
0 |
0 |
if $tmp eq 'GLOB' or $fh->isa('IO::Handle') |
|
4632
|
0 |
0 |
if ($domain =~ /^\d+$/) { } |
|
|
0 |
0 |
elsif ($domain =~ /^AF_/i) { } |
|
4637
|
0 |
0 |
if ($type->can(uc $domain)) |
|
4643
|
0 |
0 |
unless (defined $ret) |