home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 December (Special) / PCWorld_2005-12_Special_cd.bin / Bezpecnost / lsti / lsti.exe / framework-2.5.exe / make_headers.al < prev    next >
Text File  |  2005-04-23  |  575b  |  22 lines
  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 1944 "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;
  22.