summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/auto/Net/SSLeay/make_headers.al
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/auto/Net/SSLeay/make_headers.al')
-rwxr-xr-xMaster/tlpkg/tlperl/lib/auto/Net/SSLeay/make_headers.al21
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;