Current File : //lib/x86_64-linux-gnu/perl5/5.38/auto/Net/SSLeay/new_x_ctx.al
# NOTE: Derived from blib/lib/Net/SSLeay.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Net::SSLeay;
#line 1564 "blib/lib/Net/SSLeay.pm (autosplit into blib/lib/auto/Net/SSLeay/new_x_ctx.al)"
sub new_x_ctx {
if ( $ssl_version == 2 ) {
unless ( exists &Net::SSLeay::CTX_v2_new ) {
warn "ssl_version has been set to 2, but this version of libssl has been compiled without SSLv2 support";
return undef;
}
$ctx = CTX_v2_new();
}
elsif ( $ssl_version == 3 ) {
unless ( exists &Net::SSLeay::CTX_v3_new ) {
warn 'ssl_version has been set to 3, but this version of libssl has been compiled without SSLv3 support';
return undef;
}
$ctx = CTX_v3_new();
}
elsif ( $ssl_version == 10 ) {
unless ( exists &Net::SSLeay::CTX_tlsv1_new ) {
warn 'ssl_version has been set to 10, but this version of libssl has been compiled without TLSv1 support';
return undef;
}
$ctx = CTX_tlsv1_new();
}
elsif ( $ssl_version == 11 ) {
unless ( exists &Net::SSLeay::CTX_tlsv1_1_new ) {
warn 'ssl_version has been set to 11, but this version of libssl has been compiled without TLSv1.1 support';
return undef;
}
$ctx = CTX_tlsv1_1_new();
}
elsif ( $ssl_version == 12 ) {
unless ( exists &Net::SSLeay::CTX_tlsv1_2_new ) {
warn 'ssl_version has been set to 12, but this version of libssl has been compiled without TLSv1.2 support';
return undef;
}
$ctx = CTX_tlsv1_2_new();
}
elsif ( $ssl_version == 13 ) {
unless ( eval { Net::SSLeay::TLS1_3_VERSION() } ) {
warn 'ssl_version has been set to 13, but this version of libssl has been compiled without TLSv1.3 support';
return undef;
}
$ctx = CTX_new();
unless ( Net::SSLeay::CTX_set_min_proto_version( $ctx, Net::SSLeay::TLS1_3_VERSION() ) ) {
warn 'CTX_set_min_proto failed for TLSv1.3';
return undef;
}
unless ( Net::SSLeay::CTX_set_max_proto_version( $ctx, Net::SSLeay::TLS1_3_VERSION() ) ) {
warn 'CTX_set_max_proto failed for TLSv1.3';
return undef;
}
}
else {
$ctx = CTX_new();
}
return $ctx;
}
# end of Net::SSLeay::new_x_ctx
1;
Mini Shell