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/make_headers.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 2467 "blib/lib/Net/SSLeay.pm (autosplit into blib/lib/auto/Net/SSLeay/make_headers.al)"
   7 sub make_headers {
   8     my (@headers) = @_;
   9     my $headers;
  10     while (@headers) {
  11         my $header = shift(@headers);
  12         my $value = shift(@headers);
  13         $header =~ s/:$//;
  14         $value =~ s/\x0d?\x0a$//; # because we add it soon, see below
  15         $headers .= "$header: $value$CRLF";
  16     }
  17     return $headers;
  18 }
  19
  20 # end of Net::SSLeay::make_headers
  21 1;