Correct a typo in the undefined and empty-string LocalAddr patch

This commit is contained in:
Petr Písař 2017-09-18 16:27:10 +02:00
parent aa4e19bf7d
commit 02f684ffc2
2 changed files with 8 additions and 4 deletions

View File

@ -1,4 +1,4 @@
From 607e0fa0787d12cd9f1545a9d26edb30f42201cc Mon Sep 17 00:00:00 2001
From b54702ab21edbf1ea0dbc00d978aecc89e5764d6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
Date: Mon, 18 Sep 2017 15:21:16 +0200
Subject: [PATCH] Handle undef and empty LocalAddr
@ -25,7 +25,7 @@ Signed-off-by: Petr Písař <ppisar@redhat.com>
1 file changed, 8 insertions(+)
diff --git a/lib/HTTP/Daemon.pm b/lib/HTTP/Daemon.pm
index 0e22b77..be5cdec 100644
index 0e22b77..1e9d48e 100644
--- a/lib/HTTP/Daemon.pm
+++ b/lib/HTTP/Daemon.pm
@@ -18,6 +18,14 @@ sub new
@ -36,7 +36,7 @@ index 0e22b77..be5cdec 100644
+ # IO::Socket::INET -- use unspecified address
+ for my $key (qw(LocalAddr LocalHost)) {
+ if (exists $args{$key} &&
+ (!defined($args{$key}) || $args{LocalAddr} eq '')) {
+ (!defined($args{$key}) || $args{$key} eq '')) {
+ delete $args{$key};
+ }
+ }

View File

@ -1,6 +1,6 @@
Name: perl-HTTP-Daemon
Version: 6.01
Release: 18%{?dist}
Release: 19%{?dist}
Summary: Simple HTTP server class
License: GPL+ or Artistic
URL: http://search.cpan.org/dist/HTTP-Daemon/
@ -77,6 +77,10 @@ make test
%{_mandir}/man3/*
%changelog
* Mon Sep 18 2017 Petr Pisar <ppisar@redhat.com> - 6.01-19
- Correct a typo in the undefined and empty-string LocalAddr patch
(bug #1413065)
* Mon Sep 18 2017 Petr Pisar <ppisar@redhat.com> - 6.01-18
- Accept undefined and empty-string LocalAddr as IO::Socket::INET does
(bug #1413065)