| line |
!l |
l&&!r |
l&&r |
condition |
|
89
|
0 |
0 |
80 |
defined &Net::SSLeay::P_next_proto_negotiated && !&Net::SSLeay::constant('LIBRESSL_VERSION_NUMBER') |
|
94
|
0 |
0 |
80 |
defined &Net::SSLeay::CTX_set_tmp_ecdh && ($openssl_version != 268439631 || length pack('P', 0) == 4) |
|
107
|
0 |
0 |
80 |
$can_ecdh && $openssl_version >= 268443648 |
|
109
|
0 |
0 |
80 |
defined &Net::SSLeay::OCSP_cert2ids && ($netssleay_version < 1.75 || $netssleay_version > 1.77) |
|
112
|
0 |
0 |
80 |
$can_ocsp && defined &Net::SSLeay::set_tlsext_status_type |
|
114
|
0 |
0 |
80 |
defined &Net::SSLeay::CTX_set_tlsext_ticket_getkey_cb && $netssleay_version >= 1.8 |
|
123
|
80 |
0 |
0 |
$session_upref and defined &Net::SSLeay::CTX_sess_set_new_cb |
|
|
80 |
0 |
0 |
$session_upref and defined &Net::SSLeay::CTX_sess_set_new_cb and defined &Net::SSLeay::CTX_sess_set_remove_cb |
|
132
|
80 |
0 |
0 |
defined &Net::SSLeay::CTX_get0_param && eval {
do {
Net::SSLeay::X509_V_FLAG_PARTIAL_CHAIN()
}
} |
|
537
|
45 |
0 |
0 |
not %default_ca and do {
local $SIG{'__DIE__'};
eval {
do {
require Mozilla::CA;
1
}
}
} |
|
644
|
0 |
0 |
68 |
$IOCLASS eq "IO::Socket::IP" and not defined $arg_hash->{'GetAddrInfoFlags'} |
|
649
|
104 |
0 |
2 |
defined $blocking and not $blocking |
|
715
|
62 |
0 |
12 |
defined $sh and not $sh |
|
817
|
160 |
4 |
8 |
$ctx->{'session_cache'} and my $session = $ctx->{'session_cache'}->get_session($arg_hash->{'SSL_session_key'}) |
|
830
|
159 |
0 |
17 |
defined $timeout and $timeout > 0 |
|
|
159 |
0 |
17 |
defined $timeout and $timeout > 0 and $self->blocking(0) |
|
840
|
159 |
0 |
17 |
defined $timeout && time |
|
936
|
0 |
130 |
12 |
not %sess_cb and $ctx->{'session_cache'} |
|
|
130 |
0 |
12 |
not %sess_cb and $ctx->{'session_cache'} and my $session = &Net::SSLeay::get1_session($ssl) |
|
987
|
42 |
0 |
16 |
defined $sh and not $sh |
|
1006
|
71 |
9 |
42 |
@_ && UNIVERSAL::isa($_[0], 'IO::Handle') |
|
1046
|
108 |
0 |
14 |
defined $timeout and $timeout > 0 |
|
|
108 |
0 |
14 |
defined $timeout and $timeout > 0 and $socket->blocking(0) |
|
1055
|
108 |
0 |
14 |
defined $timeout && time |
|
1153
|
0 |
0 |
0 |
$ssleay_set_msg_callback and my $ssl = do {
*$self
}->{'_SSL_object'} |
|
1181
|
0 |
0 |
0 |
not $! and $err == $Net_SSLeay_ERROR_SSL || $err == $Net_SSLeay_ERROR_SYSCALL |
|
1256
|
59 |
0 |
0 |
not $written and $errs |
|
1380
|
20 |
0 |
58 |
$pending and (my $pb = &Net::SSLeay::peek($ssl, $pending)) ne "" |
|
1414
|
3 |
53 |
2 |
$eod and $delim1 eq '' || $eod < length $buf |
|
1466
|
94 |
18 |
41 |
$status & 1 and $status & 2 || $stop_args->{'SSL_fast_shutdown'} |
|
1572
|
0 |
0 |
0 |
$ctx_object && $ctx_object->{'context'} |
|
1624
|
38 |
0 |
0 |
not $was_blocking and $socket->can("blocking") |
|
1664
|
0 |
3 |
0 |
@chain and not $self->peer_certificate |
|
1705
|
80 |
0 |
0 |
$reload and do {
*$self
}->{'_SSL_certificate'} |
|
1887
|
106 |
87 |
116 |
$wtyp eq "anywhere" and $name =~ /^([a-zA-Z0-9_\-]*)\*(.+)/ |
|
|
97 |
70 |
26 |
$wtyp =~ /^(?:full_label|leftmost)$/ and $name =~ /^\*(\..+)$/ |
|
1888
|
82 |
30 |
4 |
$1 ne "" and substr($identity, 0, 4) eq "xn--" |
|
1911
|
269 |
50 |
42 |
$ipn and $type == GEN_IPADD() |
|
|
50 |
47 |
222 |
not $ipn and $type == GEN_DNS() |
|
1924
|
0 |
14 |
87 |
$scheme->{'check_cn'} eq "when_only" and not $alt_dnsNames |
|
2022
|
0 |
0 |
46 |
ref $self && do {
*$self
}->{'_SSL_last_err'} |
|
2031
|
44 |
0 |
1 |
defined $error_trap and ref $error_trap eq "CODE" |
|
2068
|
53 |
3 |
19 |
not ref $self and $CURRENT_SSL_OBJECT |
|
2222
|
1 |
4 |
0 |
IO::Handle::opened($self) && do {
*$self
}->{'_SSL_opened'} |
|
2322
|
2 |
0 |
24 |
$ctx->isa("IO::Socket::SSL::SSL_Context") and $ctx->{'context'} |
|
2334
|
91 |
153 |
6 |
not $is_server || defined $arg_hash->{'SSL_use_cert'} and grep {$arg_hash->{$_};} "SSL_cert", "SSL_cert_file" |
|
|
244 |
0 |
6 |
not $is_server || defined $arg_hash->{'SSL_use_cert'} and grep {$arg_hash->{$_};} "SSL_cert", "SSL_cert_file" and grep {$arg_hash->{$_};} "SSL_key", "SSL_key_file" |
|
2364
|
1707 |
293 |
0 |
defined $arg_hash->{$_} and $arg_hash->{$_} eq "" |
|
2387
|
89 |
77 |
84 |
not $is_server and $verify_mode & 1 |
|
|
166 |
42 |
42 |
not $is_server and $verify_mode & 1 and !$vcn_scheme || $vcn_scheme ne 'none' |
|
2428
|
89 |
0 |
0 |
$arg_hash->{'SSL_ticket_keycb'} and not $can_tckt_keycb |
|
2446
|
250 |
0 |
0 |
$ver and $v ne $ver |
|
2509
|
8 |
235 |
19 |
$ver eq "SSLv23" and not $ssl_op & $SSL_OP_NO{'SSLv3'} |
|
2525
|
159 |
94 |
9 |
$arg_hash->{'SSL_server'} and my $id = $arg_hash->{'SSL_session_id_context'} || $arg_hash->{'SSL_verify_mode'} & 1 && "$ctx" |
|
2577
|
107 |
0 |
0 |
ref $file eq "SCALAR" and not $$file |
|
2579
|
107 |
0 |
0 |
ref $dir eq "SCALAR" and not $$dir |
|
2589
|
32 |
75 |
0 |
$file || $dir and not &Net::SSLeay::CTX_load_verify_locations($ctx, scalar($file || ''), scalar($dir || '')) |
|
2599
|
155 |
0 |
0 |
not &Net::SSLeay::CTX_load_verify_locations($ctx, scalar($ca{'SSL_ca_file'} || ''), scalar($dir || '')) and $verify_mode != $Net_SSLeay_VERIFY_NONE |
|
2607
|
159 |
94 |
9 |
$is_server and $verify_mode & $Net_SSLeay_VERIFY_PEER |
|
2677
|
1 |
0 |
1 |
not $cert and $arg_hash->{'SSL_passwd_cb'} |
|
|
0 |
0 |
1 |
not $cert and $arg_hash->{'SSL_passwd_cb'} and defined(my $pw = $arg_hash->{'SSL_passwd_cb'}->(0)) |
|
2693
|
0 |
2 |
0 |
$key and not &Net::SSLeay::CTX_use_PrivateKey($ctx, $key) |
|
2733
|
105 |
159 |
0 |
not $is_server and $can_pha |
|
|
264 |
0 |
0 |
not $is_server and $can_pha and $havecert |
|
|
159 |
0 |
0 |
not $is_server and $can_pha and $havecert and $havekey |
|
2767
|
0 |
103 |
0 |
$arg_hash->{'SSL_server'} and $curve eq "auto" |
|
2825
|
239 |
0 |
9 |
@accept_fp && do {
my $fail;
sub {
my($ok, $cert, $depth) = @_;
$fail = 1 unless $ok;
return 1 if $depth > 0;
my %fp;
foreach $_ (@accept_fp) {
my $fp = ($fp{join $;, $_->[0], $_->[1]} ||= $_->[1] ? &Net::SSLeay::X509_pubkey_digest($cert, scalar &$algo2digest($_->[0])) : &Net::SSLeay::X509_digest($cert, scalar &$algo2digest($_->[0])));
next if $fp ne $_->[2];
return 1;
} ;
return !$fail;
}
} |
|
2853
|
164 |
0 |
19 |
$error &&= &Net::SSLeay::ERR_error_string($error) |
|
2878
|
89 |
0 |
159 |
not $is_server and $can_ocsp_staple |
|
|
89 |
9 |
150 |
not $is_server and $can_ocsp_staple and not $verify_fingerprint |
|
2926
|
0 |
2 |
1 |
$status and $status->[2] |
|
2951
|
0 |
0 |
1 |
@results and $chain[0] == $iossl->peer_certificate |
|
3021
|
245 |
3 |
0 |
$self->{'session_cache'} and %sess_cb |
|
3163
|
4 |
12 |
0 |
$v && $v->[0] |
|
3285
|
0 |
0 |
0 |
$e->{'expire'} and time < $e->{'expire'} |
|
3289
|
0 |
0 |
0 |
$e->{'nextUpdate'} and time < $e->{'nextUpdate'} |
|
3459
|
2 |
0 |
0 |
@miss and @found |
|
3511
|
0 |
0 |
2 |
$resp->{'success'} && $resp->{'content'} |
|
3659
|
0 |
0 |
0 |
$ssl_ver and $content_type != $trace_constants{'SSL3_RT_HEADER'} |
|
|
0 |
0 |
0 |
$ssl_ver and $content_type != $trace_constants{'SSL3_RT_HEADER'} and $content_type != $trace_constants{'SSL3_RT_INNER_CONTENT_TYPE'} |
|
3672
|
0 |
0 |
0 |
$ssl_ver == $trace_constants{'SSL3_VERSION_MAJOR'} && $content_type |
| line |
l |
!l |
condition |
|
154
|
0 |
0 |
eval {
do {
Net::SSLeay::MODE_AUTO_RETRY()
}
} || 4 |
|
365
|
80 |
0 |
eval {
do {
require Socket;
'Socket'->VERSION(1.95);
die unless Socket::inet_pton(10, '::1') and 10;
'Socket'->import('inet_pton', 'NI_NUMERICHOST', 'NI_NUMERICSERV');
*_getnameinfo = sub {
return unless my($err, $host, $port) = Socket::getnameinfo(@_);
return if $err;
return $host, $port;
}
;
'Socket'
}
} || eval {
do {
require Socket6;
die unless Socket6::inet_pton(10, '::1') and 10;
'Socket6'->import('inet_pton', 'NI_NUMERICHOST', 'NI_NUMERICSERV');
*_getnameinfo = sub {
return Socket6::getnameinfo(@_);
}
;
'Socket6'
}
} || undef |
|
443
|
0 |
240 |
UNIVERSAL::can('Net::SSLeay', $name) || sub {
$value;
}
|
|
656
|
0 |
269 |
$arg_hash->{'Proto'} ||= "tcp" |
|
659
|
18 |
172 |
$arg_hash->{'Listen'} || 0 |
|
687
|
61 |
0 |
$! ||= 11 |
|
696
|
74 |
0 |
shift() || (return _invalid_object()) |
|
723
|
0 |
174 |
$_[0] || {} |
|
739
|
172 |
0 |
&Net::SSLeay::new($ctx->{'context'}) || (return $self->error('SSL structure creation failed')) |
|
879
|
1 |
0 |
$! ||= 110 |
|
975
|
58 |
0 |
shift() || (return _invalid_object()) |
|
976
|
0 |
58 |
shift() || 'IO::Socket::SSL' |
|
982
|
58 |
0 |
$self->SUPER::accept($class) || (return) |
|
1007
|
0 |
113 |
$_[0] || {} |
|
1027
|
119 |
0 |
&Net::SSLeay::new(do {
*$socket
}->{'_SSL_ctx'}{'context'}) || (return $socket->error('SSL structure creation failed')) |
|
1088
|
1 |
0 |
$! ||= 110 |
|
1128
|
0 |
0 |
+($SSL_OBJECT{$_[5]} || (return))->[0] || (return) |
|
1172
|
6117 |
0 |
do {
*$self
}->{'_SSL_object'} || (return) |
|
1193
|
10 |
6106 |
$offset ||= 0 |
|
1240
|
7550 |
0 |
do {
*$self
}->{'_SSL_object'} || (return) |
|
1245
|
2 |
7548 |
$offset ||= 0 |
|
1265
|
2 |
0 |
$! ||= 32 |
|
1297
|
0 |
57 |
$, || '' |
|
|
0 |
57 |
$\ || '' |
|
1423
|
245 |
0 |
shift() || (return _invalid_object()) |
|
1446
|
291 |
0 |
shift() || (return _invalid_object()) |
|
1473
|
104 |
0 |
do {
*$self
}->{'_SSL_opened'} || 0 |
|
1488
|
0 |
0 |
$! ||= 32 |
|
1582
|
1 |
0 |
(shift())->_get_ssl_object || (return) |
|
1643
|
1 |
0 |
$IO::Socket::SSL::ISA[0]->new_from_fd($fd, '+<') || (return $class->error('Could not create socket from file descriptor.')) |
|
1654
|
1 |
0 |
(shift())->_get_ssl_object || (return) |
|
1662
|
3 |
0 |
$self->_get_ssl_object || (return) |
|
1722
|
6 |
0 |
$self->_get_ssl_object || (return) |
|
1723
|
6 |
0 |
&Net::SSLeay::get_certificate($ssl) || (return) |
|
1829
|
161 |
42 |
shift() || 'default' |
|
1876
|
299 |
10 |
$wtyp ||= "" |
|
1962
|
8 |
0 |
$algo || 'sha256' |
|
|
14 |
0 |
$algo || 'sha256' |
|
1969
|
20 |
2 |
$algo ||= "sha256" |
|
1975
|
12 |
0 |
(shift())->_get_ssl_object || (return) |
|
1980
|
28 |
0 |
(shift())->_get_ssl_object || (return) |
|
1994
|
0 |
0 |
(shift())->_get_ssl_object || (return) |
|
1999
|
3 |
0 |
(shift())->_get_ssl_object || (return) |
|
2007
|
2 |
0 |
$self->_get_ssl_object || (return) |
|
2023
|
0 |
0 |
$IO::Socket::SSL::SSL_ERROR || '' |
|
2050
|
0 |
1 |
Net::SSLeay::print_errs('SSL error: ') || '' |
|
2209
|
2 |
0 |
$self->_get_ssl_object || (return) |
|
2216
|
2 |
0 |
$self->_get_ssl_object || (return) |
|
2345
|
0 |
32 |
undef $arg_hash->{'SSL_ca_path'} ||= undef |
|
2347
|
0 |
0 |
$arg_hash->{'SSL_ca_file'} ||= undef |
|
2348
|
0 |
61 |
$arg_hash->{'SSL_ca_path'} ||= undef |
|
2373
|
87 |
163 |
$arg_hash->{'SSL_verify_mode'} || 0 |
|
2376
|
22 |
152 |
$arg_hash->{$_} || (next) |
|
2589
|
75 |
0 |
$file || '' |
|
|
0 |
75 |
$dir || '' |
|
2599
|
22 |
133 |
$ca{'SSL_ca_file'} || '' |
|
|
133 |
22 |
$dir || '' |
|
2740
|
0 |
0 |
&Net::SSLeay::BIO_new_file($f, 'r') || (return 'IO::Socket::SSL'->error("Failed to open DH file $f")) |
|
2791
|
89 |
0 |
&Net::SSLeay::OBJ_txt2nid($curve) || (return 'IO::Socket::SSL'->error("cannot find NID for curve name '${curve}'")) |
|
2822
|
1 |
10 |
$pubkey || '' |
|
2965
|
0 |
0 |
$cl->{$_} || $cl->{''} || $DEFAULT_SSL_ARGS{'SSL_cipher_list'} || (next) |
|
2975
|
0 |
0 |
$cl->{$_} || $cl->{''} || $DEFAULT_SSL_ARGS{'SSL_cipher_list'} || (next) |
|
3132
|
0 |
0 |
~~@del || 'none' |
|
3277
|
0 |
2 |
$size || 100 |
|
3350
|
0 |
0 |
$hard_error ||= "" |
|
3683
|
0 |
0 |
eval {
do {
Net::SSLeay::SSL_alert_desc_string_long($msg_type)
}
} || 'Unknown alert' |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
509
|
0 |
45 |
0 |
$openssldir ||= &Net::SSLeay::SSLeay_version(5) =~ /^OPENSSLDIR: "(.+)"$/ ? $1 : (&Net::SSLeay::SSLeay_version(4) =~ /^OPENSSLDIR: "(.+)"$/ ? $1 : "cannot-determine-openssldir-from-ssleay-version") |
|
516
|
0 |
45 |
0 |
$ENV{'SSL_CERT_DIR'} || ($^O =~ /vms/i ? 'SSLCERTS:' : "$openssldir/certs") |
|
528
|
0 |
45 |
0 |
$ENV{'SSL_CERT_FILE'} || ($^O =~ /vms/i ? 'SSLCERTS:cert.pem' : "$openssldir/cert.pem") |
|
562
|
0 |
0 |
0 |
UNIVERSAL::isa($class, "IO::Socket::INET6") or UNIVERSAL::isa($class, "IO::Socket::IP") |
|
638
|
68 |
0 |
44 |
$arg_hash->{'Domain'} || $arg_hash->{'Family'} |
|
|
0 |
68 |
44 |
$arg_hash->{$family_key} ||= $arg_hash->{'Domain'} || $arg_hash->{'Family'} |
|
745
|
6 |
6 |
0 |
$arg_hash->{'SSL_session_key'} ||= do {
my $host = $arg_hash->{'PeerAddr'} || $arg_hash->{'PeerHost'} || $self->_update_peer;
my $port = $arg_hash->{'PeerPort'} || $arg_hash->{'PeerService'};
$port ? "${host}:$port" : $host
} |
|
747
|
5 |
1 |
0 |
$arg_hash->{'PeerAddr'} || $arg_hash->{'PeerHost'} || $self->_update_peer |
|
748
|
1 |
5 |
0 |
$arg_hash->{'PeerPort'} || $arg_hash->{'PeerService'} |
|
756
|
0 |
0 |
172 |
$DEBUG >= 2 or do {
*$self
}->{'_SSL_msg_callback'} |
|
760
|
2 |
60 |
89 |
$arg_hash->{'PeerAddr'} || $arg_hash->{'PeerHost'} |
|
768
|
62 |
0 |
0 |
not $host =~ /[a-z_]/i or $host =~ /:/ |
|
785
|
2 |
75 |
95 |
$arg_hash->{'PeerAddr'} or $arg_hash->{'PeerHost'} |
|
789
|
42 |
11 |
44 |
$arg_hash->{'SSL_verifycn_name'} || $arg_hash->{'SSL_hostname'} |
|
791
|
23 |
21 |
0 |
$arg_hash->{'PeerAddr'} || $arg_hash->{'PeerHost'} |
|
824
|
172 |
4 |
0 |
$ssl ||= do {
*$self
}->{'_SSL_object'} |
|
911
|
140 |
2 |
0 |
$ctx ||= do {
*$self
}->{'_SSL_ctx'} |
|
1035
|
0 |
0 |
119 |
$DEBUG >= 2 or do {
*$self
}->{'_SSL_msg_callback'} |
|
1038
|
119 |
3 |
0 |
$ssl ||= do {
*$socket
}->{'_SSL_object'} |
|
1155
|
0 |
0 |
0 |
$DEBUG >= 2 || do {
*$self
}->{'_SSL_msg_callback'} |
|
1181
|
0 |
0 |
0 |
$err == $Net_SSLeay_ERROR_SSL || $err == $Net_SSLeay_ERROR_SYSCALL |
|
1244
|
7490 |
60 |
0 |
$length ||= $buf_len |
|
1315
|
2 |
5 |
76 |
not defined $/ or wantarray |
|
1323
|
0 |
0 |
0 |
$! == 11 or $! == 11 |
|
1353
|
0 |
0 |
0 |
$! == 11 or $! == 11 |
|
1372
|
1 |
20 |
58 |
not defined $poke or $poke eq "" |
|
1414
|
54 |
1 |
0 |
$delim1 eq '' || $eod < length $buf |
|
1466
|
10 |
39 |
10 |
$status & 2 || $stop_args->{'SSL_fast_shutdown'} |
|
1538
|
0 |
46 |
51 |
$downgrade or not defined $downgrade |
|
1564
|
235 |
0 |
0 |
do {
*$self
}->{'_SSL_object'} || 'IO::Socket::SSL'->_internal_error('Undefined SSL object', 9) |
|
1610
|
151 |
0 |
4 |
not defined $start_handshake or $start_handshake |
|
1707
|
45 |
35 |
0 |
do {
*$self
}->{'_SSL_certificate'} ||= &Net::SSLeay::get_peer_certificate($ssl) |
|
1833
|
203 |
0 |
0 |
$scheme{$scheme} || croak("scheme $scheme not defined") |
|
1858
|
0 |
3 |
43 |
4 != @ip or 4 != grep({$_ < 256 if defined $_;} @ip) |
|
1924
|
18 |
87 |
14 |
$scheme->{'check_cn'} eq "always" or $scheme->{'check_cn'} eq "when_only" and not $alt_dnsNames |
|
1953
|
0 |
8 |
0 |
do {
*$self
}->{'_SSL_servername'} ||= do {
return unless my $ssl = $self->_get_ssl_object;
&Net::SSLeay::get_servername($ssl)
} |
|
1961
|
2 |
20 |
0 |
$cert ||= $self->peer_certificate |
|
2014
|
1 |
1 |
0 |
$ctx->{'ocsp_cache'} ||= "IO::Socket::SSL::OCSP_Cache"->new |
|
2031
|
36 |
0 |
8 |
do {
*$self
}->{'_SSL_ioclass_upgraded'} or do {
*$self
}->{'_SSL_arguments'}{'SSL_keepSocketOnError'} |
|
2071
|
41 |
6 |
25 |
not $oe or $oe->[1] <= $severity |
|
2122
|
194 |
0 |
0 |
not $use_threads or delete $CREATED_IN_THIS_THREAD{$ssl} |
|
2334
|
89 |
2 |
159 |
$is_server || defined $arg_hash->{'SSL_use_cert'} |
|
2345
|
0 |
0 |
32 |
$arg_hash->{'SSL_ca_file'} ||= (undef $arg_hash->{'SSL_ca_path'} ||= undef) |
|
2356
|
2696 |
1544 |
0 |
defined $arg_hash->{$_} or delete $arg_hash->{$_} |
|
2387
|
42 |
42 |
0 |
!$vcn_scheme || $vcn_scheme ne 'none' |
|
2402
|
84 |
0 |
0 |
$verify_name || ref $vcn_scheme && $vcn_scheme->{'callback'} && 'unknown' |
|
2442
|
683 |
27 |
0 |
$2 || $3 |
|
2525
|
0 |
9 |
94 |
$arg_hash->{'SSL_session_id_context'} || $arg_hash->{'SSL_verify_mode'} & 1 && "$ctx" |
|
2573
|
32 |
75 |
155 |
$arg_hash->{'SSL_ca'} or defined $arg_hash->{'SSL_ca_file'} |
|
|
107 |
0 |
155 |
$arg_hash->{'SSL_ca'} or defined $arg_hash->{'SSL_ca_file'} or defined $arg_hash->{'SSL_ca_path'} |
|
2589
|
75 |
0 |
32 |
$file || $dir |
|
2714
|
153 |
2 |
109 |
not $havecert or $havekey |
|
|
80 |
1 |
0 |
$arg_hash->{'SSL_key_file'} || ($havecert eq 'PEM' ? $arg_hash->{'SSL_cert_file'} : undef) |
|
2815
|
11 |
0 |
0 |
$algo ||= length $digest == 32 ? "md5" : (length $digest == 40 ? "sha1" : (length $digest == 64 ? "sha256" : (return "IO::Socket::SSL"->_internal_error("cannot detect hash algorithm from fingerprint '${_}'", 9)))) |
|
2834
|
1 |
12 |
0 |
$fp{join $;, $_->[0], $_->[1]} ||= $_->[1] ? &Net::SSLeay::X509_pubkey_digest($cert, scalar &$algo2digest($_->[0])) : &Net::SSLeay::X509_digest($cert, scalar &$algo2digest($_->[0])) |
|
2981
|
248 |
0 |
0 |
$ctx{''} || (values %ctx)[0] |
|
2982
|
6 |
0 |
242 |
keys %ctx > 1 or not exists $ctx{''} |
|
2990
|
13 |
6 |
0 |
$ctx{lc $host} || $ctx{''} |
|
3027
|
0 |
0 |
0 |
$SSL_OBJECT{$ssl} || do {
warn "callback session new: no known SSL object for $ssl";
return
} |
|
3061
|
246 |
0 |
0 |
not $use_threads or delete $CTX_CREATED_IN_THIS_THREAD{$ctx} |
|
3376
|
0 |
0 |
2 |
not $todo or $self->{'error'} |
|
3653
|
0 |
0 |
0 |
$tc_ver2s{$ssl_ver} || "(version=$ssl_ver)" |
|
3672
|
0 |
0 |
0 |
$tc_type2s{$content_type} || "TLS Unknown (type=$content_type)" |
|
3686
|
0 |
0 |
0 |
$tc_msgtype2s{join $;, $ssl_ver, $msg_type} || "Unknown (ssl_ver=$ssl_ver, msg=$msg_type)" |