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