git.maemo.org Git - dh-make-perl/blob - dev/arm/libnet-ssleay-perl/libnet-ssleay-perl-1.35/debian/libnet-ssleay-perl/usr/lib/perl5/auto/Net/SSLeay/new_x_ctx.al

   1 # NOTE: Derived from blib/lib/Net/SSLeay.pm.
   2 # Changes made here will be lost when autosplit is run again.
   3 # See AutoSplit.pm.
   4 package Net::SSLeay;
   5
   6 #line 2159 "blib/lib/Net/SSLeay.pm (autosplit into blib/lib/auto/Net/SSLeay/new_x_ctx.al)"
   7 sub new_x_ctx {
   8     if    ($ssl_version == 2)  { $ctx = CTX_v2_new(); }
   9     elsif ($ssl_version == 3)  { $ctx = CTX_v3_new(); }
  10     elsif ($ssl_version == 10) { $ctx = CTX_tlsv1_new(); }
  11     else                       { $ctx = CTX_new(); }
  12     return $ctx;
  13 }
  14
  15 # end of Net::SSLeay::new_x_ctx
  16 1;