diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/auto/Net/SSLeay/make_headers.al')
-rwxr-xr-x | Master/tlpkg/tlperl/lib/auto/Net/SSLeay/make_headers.al | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/make_headers.al b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/make_headers.al new file mode 100755 index 00000000000..171483bc4ae --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/make_headers.al @@ -0,0 +1,21 @@ +# NOTE: Derived from blib\lib\Net\SSLeay.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Net::SSLeay; + +#line 2466 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\make_headers.al)" +sub make_headers { + my (@headers) = @_; + my $headers; + while (@headers) { + my $header = shift(@headers); + my $value = shift(@headers); + $header =~ s/:$//; + $value =~ s/\x0d?\x0a$//; # because we add it soon, see below + $headers .= "$header: $value$CRLF"; + } + return $headers; +} + +# end of Net::SSLeay::make_headers +1; |