Lines Matching full:protocols
46 my @protocols = @{$protref};
50 foreach my $i (0..$#protocols) {
62 my @protocols = @{$protref};
66 foreach my $i (0..$#protocols) {
68 && ($protocols[$i] ne "TLSv1.3"
121 my @protocols;
127 @protocols = $dtls ? @dtls_protocols_fips : @tls_protocols_fips;
133 @protocols = $dtls ? @dtls_protocols : @tls_protocols;
156 \@protocols);
229 my @protocols;
234 @protocols = $dtls ? @dtls_protocols_fips : @tls_protocols_fips;
238 @protocols = $dtls ? @dtls_protocols : @tls_protocols;
274 "MinProtocol" => $protocols[$original_protocol],
275 "MaxProtocol" => $protocols[$original_protocol],
280 "MaxProtocol" => $protocols[$resume_protocol],
284 "ExpectedProtocol" => $protocols[$resume_protocol],
296 "MinProtocol" => $protocols[$original_protocol],
297 "MaxProtocol" => $protocols[$original_protocol],
305 "MaxProtocol" => $protocols[$resume_protocol],
308 "ExpectedProtocol" => $protocols[$resume_protocol],
344 $protocols) = @_;
345 my @prots = @$protocols;
350 $c_max = $c_max == scalar @$protocols ? $c_max - 1 : $c_max;
352 $s_max = $s_max == scalar @$protocols ? $s_max - 1 : $s_max;
362 || ($orig_c_max != scalar @$protocols
369 # Server has no protocols, should always fail.
387 return ("Success", $protocols->[$max_common]);