Correct a typo in the undefined and empty-string LocalAddr patch
This commit is contained in:
parent
aa4e19bf7d
commit
02f684ffc2
@ -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};
|
||||
+ }
|
||||
+ }
|
||||
|
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user