[Bug 216133] p5-HTTP-Daemon-SSL

[bugzilla-noreply at freebsd.org]

https://bugs.freebsd.org/bugzilla/show_bug.cgi?id=216133

            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 at FreeBSD.org
          Reporter: fm at tpbox.com
                CC: freebsd-amd64 at FreeBSD.org
                CC: freebsd-amd64 at 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 
> /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 = HTTP::Daemon::SSL->new || die;
print "Please contact me at: <URL:", $d->url, ">\n";
while (my $c = $d->accept) {
    while (my $r = $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);
}

-- 
You are receiving this mail because:
You are on the CC list for the bug.