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/do_httpx2.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 2520 "blib/lib/Net/SSLeay.pm (autosplit into blib/lib/auto/Net/SSLeay/do_httpx2.al)"
   7 sub do_httpx2 {
   8     my ($page, $response, $headers, $server_cert) = &do_httpx3;
   9     X509_free($server_cert) if defined $server_cert;
  10     return ($page, $response,
  11             map( { ($h,$v)=/^(\S+)\:\s*(.*)$/; (uc($h),$v); }
  12                 split(/\s?\n/, $headers)
  13                 )
  14             );
  15 }
  16
  17 # end of Net::SSLeay::do_httpx2
  18 1;