Date: Mon, 16 Jan 2017 07:44:51 +0000 From: bugzilla-noreply@freebsd.org To: freebsd-amd64@FreeBSD.org Subject: [Bug 216133] p5-HTTP-Daemon-SSL Message-ID: <bug-216133-6@https.bugs.freebsd.org/bugzilla/>
next in thread | raw e-mail | index | archive | help
https://bugs.freebsd.org/bugzilla/show_bug.cgi?id=3D216133 Bug ID: 216133 Summary: p5-HTTP-Daemon-SSL Product: Ports & Packages Version: Latest Hardware: amd64 OS: Any Status: New Severity: Affects Many People Priority: --- Component: Package Infrastructure Assignee: portmgr@FreeBSD.org Reporter: fm@tpbox.com CC: freebsd-amd64@FreeBSD.org CC: freebsd-amd64@FreeBSD.org The latest pkg updates perl to 5.24, and the p5-HTTP-Daemon-SSL package is = now broken. Everything would work with perl 5.20 (previous pkg version). The example script provided in the perl module documentation (see below) crashes with the following error message: > Bad arg length for Socket::inet_ntoa, length is 16, should be 4 at=20 > /usr/local/lib/perl5/site_perl/HTTP/Daemon.pm line 51. Previously, the very same error would happen with Perl5 IPv6 socket modules installed, and a possible workaround was manually uninstalling the following packages: p5-IO-Socket-INET6, p5-Socket, p5-Socket6, p5-IO-Socket-IP. Script example: use HTTP::Daemon::SSL; use HTTP::Status; # Make sure you have a certs/ directory with "server-cert.pem" # and "server-key.pem" in it before running this! my $d =3D HTTP::Daemon::SSL->new || die; print "Please contact me at: <URL:", $d->url, ">\n"; while (my $c =3D $d->accept) { while (my $r =3D $c->get_request) { if ($r->method eq 'GET' and $r->url->path eq "/dir") { # remember, this is *not* recommened practice :-) $c->send_file_response("f.html"); } else { $c->send_error(RC_FORBIDDEN); } } $c->close; undef($c); } --=20 You are receiving this mail because: You are on the CC list for the bug.=
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?bug-216133-6>