forked from pool/perl-IO-Async
Accepting request 865940 from devel:languages:perl:autoupdate
- Remove patch IO-Async-0.77-Adjust-t-50resolver.t-test-for-an-unavailable-DNS-se.patch (was applied upstream. https://rt.cpan.org/Public/Bug/Display.html?id=131109) - updated to 0.78 see /usr/share/doc/packages/perl-IO-Async/Changes 0.78 2021-01-21 [CHANGES] * Warn on attempts to ->connect to INADDR(6)_LOOPBACK as some OSes (e.g. OpenBSD) do not allow it * Various fixes for IO::Async::LoopTests to better support IO::Async::Loop::UV: + Insert some ->loop_once(0) calls between timing tests to allow libuv to clear its pending queues + Allow loops to declare that they cannot perform all-child PID watch and skip the relevant tests for it if so * Have $loop->later return a future instance if not passed any code (RT133240) [BUGFIXES] * Accept more error codes for failure to resolve missing hostname (RT131109) * Defend against some undef values at global destruction time (RT132677) OBS-URL: https://build.opensuse.org/request/show/865940 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-IO-Async?expand=0&rev=9
This commit is contained in:
@@ -1,51 +0,0 @@
|
|||||||
From 27bc9f6cf7f751d294d110160b66460a7c26fbba Mon Sep 17 00:00:00 2001
|
|
||||||
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
|
|
||||||
Date: Thu, 24 Sep 2020 13:40:36 +0200
|
|
||||||
Subject: [PATCH] Adjust t/50resolver.t test for an unavailable DNS server
|
|
||||||
MIME-Version: 1.0
|
|
||||||
Content-Type: text/plain; charset=UTF-8
|
|
||||||
Content-Transfer-Encoding: 8bit
|
|
||||||
|
|
||||||
If no DNS server is available (e.g. empty /etc/resolv.conf and no DNS
|
|
||||||
server listening on localhost), getaddrinfo() function reports
|
|
||||||
EAI_AGAIN (or EAI_FAIL) to distinguish the DNS procol error from
|
|
||||||
a negative respons by the DNS server.
|
|
||||||
|
|
||||||
t/50resolver.t did not expected it and failed likes this in SuSE and
|
|
||||||
Fedora build systems:
|
|
||||||
|
|
||||||
t/42function.t ............... ok
|
|
||||||
# Failed test '->failure [3] gives EAI_NONAME or EAI_NODATA'
|
|
||||||
# at t/50resolver.t line 344.
|
|
||||||
# $errno is -3
|
|
||||||
# Looks like you failed 1 test of 35.
|
|
||||||
t/50resolver.t ...............
|
|
||||||
Dubious, test returned 1 (wstat 256, 0x100)
|
|
||||||
|
|
||||||
This patch fixes it.
|
|
||||||
|
|
||||||
CPAN RT#131109
|
|
||||||
|
|
||||||
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
|
||||||
---
|
|
||||||
t/50resolver.t | 4 +++-
|
|
||||||
1 file changed, 3 insertions(+), 1 deletion(-)
|
|
||||||
|
|
||||||
diff --git a/t/50resolver.t b/t/50resolver.t
|
|
||||||
index 68f4446..b7cfb56 100644
|
|
||||||
--- a/t/50resolver.t
|
|
||||||
+++ b/t/50resolver.t
|
|
||||||
@@ -341,7 +341,9 @@ SKIP: {
|
|
||||||
is( ( $future->failure )[2], "getaddrinfo", '->failure [2] gives getaddrinfo' );
|
|
||||||
|
|
||||||
my $errno = ( $future->failure )[3];
|
|
||||||
- ok( $errno == Socket::EAI_NONAME || $errno == Socket::EAI_NODATA, '->failure [3] gives EAI_NONAME or EAI_NODATA' ) or
|
|
||||||
+ ok( $errno == Socket::EAI_FAIL || $errno == Socket::EAI_AGAIN || # no server available
|
|
||||||
+ $errno == Socket::EAI_NONAME || $errno == Socket::EAI_NODATA, # server confirmed no DNS entry
|
|
||||||
+ '->failure [3] gives EAI_FAIL or EAI_AGAIN or EAI_NONAME or EAI_NODATA' ) or
|
|
||||||
diag( '$errno is ' . $errno );
|
|
||||||
}
|
|
||||||
|
|
||||||
--
|
|
||||||
2.25.4
|
|
||||||
|
|
||||||
@@ -1,3 +0,0 @@
|
|||||||
version https://git-lfs.github.com/spec/v1
|
|
||||||
oid sha256:31dfe86a5b49c7544c536c3425b702e3ddf440763402984ae99b77a197757994
|
|
||||||
size 246133
|
|
||||||
3
IO-Async-0.78.tar.gz
Normal file
3
IO-Async-0.78.tar.gz
Normal file
@@ -0,0 +1,3 @@
|
|||||||
|
version https://git-lfs.github.com/spec/v1
|
||||||
|
oid sha256:3fb51885977b86218a89ea42f38cafbce5823bf48faaa2d185a186c2a358366c
|
||||||
|
size 248560
|
||||||
@@ -5,8 +5,8 @@ description_paragraphs: 1
|
|||||||
# - source1
|
# - source1
|
||||||
# - source2
|
# - source2
|
||||||
patches:
|
patches:
|
||||||
# PATCH-FIX-UPSTREAM https://rt.cpan.org/Public/Bug/Display.html?id=131109
|
# # PATCH-FIX-UPSTREAM https://rt.cpan.org/Public/Bug/Display.html?id=131109
|
||||||
https://rt.cpan.org/Ticket/Attachment/1912750/1024503/IO-Async-0.77-Adjust-t-50resolver.t-test-for-an-unavailable-DNS-se.patch: -p1
|
# https://rt.cpan.org/Ticket/Attachment/1912750/1024503/IO-Async-0.77-Adjust-t-50resolver.t-test-for-an-unavailable-DNS-se.patch: -p1
|
||||||
# bar.patch:
|
# bar.patch:
|
||||||
preamble: |-
|
preamble: |-
|
||||||
BuildRequires: netcfg
|
BuildRequires: netcfg
|
||||||
|
|||||||
@@ -1,3 +1,34 @@
|
|||||||
|
-------------------------------------------------------------------
|
||||||
|
Fri Jan 22 11:01:01 UTC 2021 - Tina Müller <tina.mueller@suse.com>
|
||||||
|
|
||||||
|
- Remove patch IO-Async-0.77-Adjust-t-50resolver.t-test-for-an-unavailable-DNS-se.patch
|
||||||
|
(was applied upstream. https://rt.cpan.org/Public/Bug/Display.html?id=131109)
|
||||||
|
|
||||||
|
-------------------------------------------------------------------
|
||||||
|
Fri Jan 22 03:07:12 UTC 2021 - Tina Müller <timueller+perl@suse.de>
|
||||||
|
|
||||||
|
- updated to 0.78
|
||||||
|
see /usr/share/doc/packages/perl-IO-Async/Changes
|
||||||
|
|
||||||
|
0.78 2021-01-21
|
||||||
|
[CHANGES]
|
||||||
|
* Warn on attempts to ->connect to INADDR(6)_LOOPBACK as some OSes
|
||||||
|
(e.g. OpenBSD) do not allow it
|
||||||
|
* Various fixes for IO::Async::LoopTests to better support
|
||||||
|
IO::Async::Loop::UV:
|
||||||
|
+ Insert some ->loop_once(0) calls between timing tests to allow
|
||||||
|
libuv to clear its pending queues
|
||||||
|
+ Allow loops to declare that they cannot perform all-child PID
|
||||||
|
watch and skip the relevant tests for it if so
|
||||||
|
* Have $loop->later return a future instance if not passed any code
|
||||||
|
(RT133240)
|
||||||
|
|
||||||
|
[BUGFIXES]
|
||||||
|
* Accept more error codes for failure to resolve missing hostname
|
||||||
|
(RT131109)
|
||||||
|
* Defend against some undef values at global destruction time
|
||||||
|
(RT132677)
|
||||||
|
|
||||||
-------------------------------------------------------------------
|
-------------------------------------------------------------------
|
||||||
Fri Oct 16 19:34:27 UTC 2020 - Dirk Stoecker <opensuse@dstoecker.de>
|
Fri Oct 16 19:34:27 UTC 2020 - Dirk Stoecker <opensuse@dstoecker.de>
|
||||||
|
|
||||||
|
|||||||
@@ -1,7 +1,7 @@
|
|||||||
#
|
#
|
||||||
# spec file for package perl-IO-Async
|
# spec file for package perl-IO-Async
|
||||||
#
|
#
|
||||||
# Copyright (c) 2020 SUSE LLC
|
# Copyright (c) 2021 SUSE LLC
|
||||||
#
|
#
|
||||||
# All modifications and additions to the file contributed by third parties
|
# All modifications and additions to the file contributed by third parties
|
||||||
# remain the property of their copyright owners, unless otherwise agreed
|
# remain the property of their copyright owners, unless otherwise agreed
|
||||||
@@ -17,7 +17,7 @@
|
|||||||
|
|
||||||
|
|
||||||
Name: perl-IO-Async
|
Name: perl-IO-Async
|
||||||
Version: 0.77
|
Version: 0.78
|
||||||
Release: 0
|
Release: 0
|
||||||
%define cpan_name IO-Async
|
%define cpan_name IO-Async
|
||||||
Summary: Asynchronous event-driven programming
|
Summary: Asynchronous event-driven programming
|
||||||
@@ -26,7 +26,6 @@ Group: Development/Libraries/Perl
|
|||||||
URL: https://metacpan.org/release/%{cpan_name}
|
URL: https://metacpan.org/release/%{cpan_name}
|
||||||
Source0: https://cpan.metacpan.org/authors/id/P/PE/PEVANS/%{cpan_name}-%{version}.tar.gz
|
Source0: https://cpan.metacpan.org/authors/id/P/PE/PEVANS/%{cpan_name}-%{version}.tar.gz
|
||||||
Source1: cpanspec.yml
|
Source1: cpanspec.yml
|
||||||
Patch0: https://rt.cpan.org/Ticket/Attachment/1912750/1024503/IO-Async-0.77-Adjust-t-50resolver.t-test-for-an-unavailable-DNS-se.patch
|
|
||||||
BuildArch: noarch
|
BuildArch: noarch
|
||||||
BuildRoot: %{_tmppath}/%{name}-%{version}-build
|
BuildRoot: %{_tmppath}/%{name}-%{version}-build
|
||||||
BuildRequires: perl
|
BuildRequires: perl
|
||||||
@@ -61,7 +60,6 @@ includes more higher-level functionality built on top of these basic parts.
|
|||||||
|
|
||||||
%prep
|
%prep
|
||||||
%setup -q -n %{cpan_name}-%{version}
|
%setup -q -n %{cpan_name}-%{version}
|
||||||
%patch0 -p1
|
|
||||||
|
|
||||||
%build
|
%build
|
||||||
perl Build.PL installdirs=vendor
|
perl Build.PL installdirs=vendor
|
||||||
|
|||||||
Reference in New Issue
Block a user