summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl.straw/lib/auto/Net/SSLeay/new_x_ctx.al
blob: 97fa45556caa362cf48b8f9f800d911eb592223e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
# 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 2158 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\new_x_ctx.al)"
sub new_x_ctx {
    if    ($ssl_version == 2)  { $ctx = CTX_v2_new(); }
    elsif ($ssl_version == 3)  { $ctx = CTX_v3_new(); }
    elsif ($ssl_version == 10) { $ctx = CTX_tlsv1_new(); }
    else                       { $ctx = CTX_new(); }
    return $ctx;
}

# end of Net::SSLeay::new_x_ctx
1;