Fabio/ddclient
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update ddclient::Test::Fake::HTTPD

Browse source
This commit is contained in:
Richard Hansen 2024-05-09 13:56:14 -04:00
parent f6f19c962e
commit fedf0cbf40
1 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
t/lib/ddclient/Test/Fake/HTTPD.pm
View file

@ -1,8 +1,11 @@
# Copied from https://metacpan.org/pod/release/MASAKI/Test-Fake-HTTPD-0.08/lib/Test/Fake/HTTPD.pm # Copied from https://metacpan.org/release/MASAKI/Test-Fake-HTTPD-0.09/source/lib/Test/Fake/HTTPD.pm
# and modified as follows: # and modified as follows:
# * Patched with https://github.com/masaki/Test-Fake-HTTPD/pull/4 to add IPv6 support. # * Added this comment block.
# * Patched with https://github.com/masaki/Test-Fake-HTTPD/pull/6 to fix server exit if TLS
# negotiation fails.
# * Changed package name to ddclient::Test::Fake::HTTPD. # * Changed package name to ddclient::Test::Fake::HTTPD.
# #
# Copyright: 2011-2020 NAKAGAWA Masaki <masaki@cpan.org>
# License: This library is free software; you can redistribute it and/or modify it under the same # License: This library is free software; you can redistribute it and/or modify it under the same
# terms as Perl itself. # terms as Perl itself.
@ -20,7 +23,7 @@ use Scalar::Util qw(blessed weaken);
use Carp qw(croak); use Carp qw(croak);
use Exporter qw(import); use Exporter qw(import);
our $VERSION = '0.08'; our $VERSION = '0.09';
$VERSION = eval $VERSION; $VERSION = eval $VERSION;
our @EXPORT = qw( our @EXPORT = qw(
@ -101,9 +104,10 @@ sub run {
$self->port || '<default>', $self->port || '<default>',
$@ eq '' ? '' : ": $@")) unless $d; $@ eq '' ? '' : ": $@")) unless $d;
$d->accept; # wait for port check from parent process while (1) {
# accept can return undef if TLS handshake fails (e.g., port test or client rejects
while (my $c = $d->accept) { # cert).
my $c = $d->accept or next;
while (my $req = $c->get_request) { while (my $req = $c->get_request) {
my $res = $self->_to_http_res($app->($req)); my $res = $self->_to_http_res($app->($req));
$c->send_response($res); $c->send_response($res);
@ -143,7 +147,7 @@ sub endpoint {
my $self = shift; my $self = shift;
my $uri = URI->new($self->scheme . ':'); my $uri = URI->new($self->scheme . ':');
my $host = $self->host; my $host = $self->host;
$host = 'localhost' if !defined($host) || $host eq '0.0.0.0' || $host eq '::'; $host = 'localhost' if !defined($host) || $host eq '' || $host eq '0.0.0.0' || $host eq '::';
$uri->host($host); $uri->host($host);
$uri->port($self->port); $uri->port($self->port);
return $uri; return $uri;