diff options
Diffstat (limited to 'lib/Devel/Mwrap/Rproxy.pm')
-rw-r--r-- | lib/Devel/Mwrap/Rproxy.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Devel/Mwrap/Rproxy.pm b/lib/Devel/Mwrap/Rproxy.pm index f7f8a82..76b7d7f 100644 --- a/lib/Devel/Mwrap/Rproxy.pm +++ b/lib/Devel/Mwrap/Rproxy.pm @@ -1,7 +1,7 @@ # Copyright (C) mwrap hackers <mwrap-perl@80x24.org> # License: GPL-2.0+ <https://www.gnu.org/licenses/gpl-2.0.txt> -# minimal reverse proxy to expose the embedded mwrap_httpd.h UNIX sockets +# minimal reverse proxy to expose the embedded httpd.h UNIX sockets # via PSGI (and thus TCP HTTP/1.x). This does not have a hard dependency # on Mwrap.so. # @@ -69,7 +69,7 @@ sub call { # PSGI entry point my $h = "$method $uri HTTP/1.0\n\n"; $s = send($c, $h, MSG_NOSIGNAL) // return r(500, "send: $!"); $s == length($h) or return r(500, "send $s <".length($h)); - # this only expects mwrap_httpd.h output, so no continuation lines: + # this only expects httpd.h output, so no continuation lines: $h = do { local $/ = "\r\n\r\n"; <$c> } // return r(500, "read: $!"); my ($code, @hdr) = split(/\r\n/, $h); (undef, $code, undef) = split(/ /, $code); |