From 02f684ffc2527d60e5e32fca74540ac3c8170e29 Mon Sep 17 00:00:00 2001
From: Petr Písař <ppi...@redhat.com>
Date: Sep 18 2017 14:27:10 +0000
Subject: Correct a typo in the undefined and empty-string LocalAddr patch
---
diff --git a/HTTP-Daemon-6.01-Handle-undef-and-empty-LocalAddr.patch
b/HTTP-Daemon-6.01-Handle-undef-and-empty-LocalAddr.patch
index c503849..f6fe289 100644
--- a/HTTP-Daemon-6.01-Handle-undef-and-empty-LocalAddr.patch
+++ b/HTTP-Daemon-6.01-Handle-undef-and-empty-LocalAddr.patch
@@ -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?= <ppi...@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ř <ppi...@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};
+ }
+ }
diff --git a/perl-HTTP-Daemon.spec b/perl-HTTP-Daemon.spec
index 72b8ff6..9eddcf8 100644
--- a/perl-HTTP-Daemon.spec
+++ b/perl-HTTP-Daemon.spec
@@ -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 <ppi...@redhat.com> - 6.01-19
+- Correct a typo in the undefined and empty-string LocalAddr patch
+ (bug #1413065)
+
* Mon Sep 18 2017 Petr Pisar <ppi...@redhat.com> - 6.01-18
- Accept undefined and empty-string LocalAddr as IO::Socket::INET does
(bug #1413065)
https://src.fedoraproject.org/rpms/perl-HTTP-Daemon/c/02f684ffc2527d60e5e32fca74540ac3c8170e29?branch=master
_______________________________________________
perl-devel mailing list -- perl-devel@lists.fedoraproject.org
To unsubscribe send an email to perl-devel-le...@lists.fedoraproject.org
