Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-Test-Future-IO-Impl for
openSUSE:Factory checked in at 2026-06-08 14:18:51
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Test-Future-IO-Impl (Old)
and /work/SRC/openSUSE:Factory/.perl-Test-Future-IO-Impl.new.2375 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Test-Future-IO-Impl"
Mon Jun 8 14:18:51 2026 rev:6 rq:1357773 version:0.210.0
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Test-Future-IO-Impl/perl-Test-Future-IO-Impl.changes
2026-03-11 20:52:47.003672680 +0100
+++
/work/SRC/openSUSE:Factory/.perl-Test-Future-IO-Impl.new.2375/perl-Test-Future-IO-Impl.changes
2026-06-08 14:24:51.831922064 +0200
@@ -1,0 +2,15 @@
+Sat Mar 14 06:07:22 UTC 2026 - Tina Müller <[email protected]>
+
+- updated to 0.210.0 (0.21)
+ see /usr/share/doc/packages/perl-Test-Future-IO-Impl/Changes
+
+ 0.21 2026-03-12
+ [CHANGES]
+ * Add a test to assert that a subsequent `->poll` enqueued during
+ the first one is not immediately invoked
+
+ [BUGFIXES]
+ * A hopefully more reliable method for attempting to provoke
`EAGAIN`
+ on a pipe write
+
+-------------------------------------------------------------------
Old:
----
Test-Future-IO-Impl-0.20.tar.gz
New:
----
Test-Future-IO-Impl-0.21.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Test-Future-IO-Impl.spec ++++++
--- /var/tmp/diff_new_pack.8AbxUI/_old 2026-06-08 14:24:52.419946448 +0200
+++ /var/tmp/diff_new_pack.8AbxUI/_new 2026-06-08 14:24:52.423946613 +0200
@@ -18,10 +18,10 @@
%define cpan_name Test-Future-IO-Impl
Name: perl-Test-Future-IO-Impl
-Version: 0.200.0
+Version: 0.210.0
Release: 0
-# 0.20 -> normalize -> 0.200.0
-%define cpan_version 0.20
+# 0.21 -> normalize -> 0.210.0
+%define cpan_version 0.21
License: Artistic-1.0 OR GPL-1.0-or-later
Summary: Acceptance tests for Future::IO implementations
URL: https://metacpan.org/release/%{cpan_name}
++++++ Test-Future-IO-Impl-0.20.tar.gz -> Test-Future-IO-Impl-0.21.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Future-IO-Impl-0.20/Changes
new/Test-Future-IO-Impl-0.21/Changes
--- old/Test-Future-IO-Impl-0.20/Changes 2026-02-27 18:54:53.000000000
+0100
+++ new/Test-Future-IO-Impl-0.21/Changes 2026-03-12 12:33:47.000000000
+0100
@@ -1,5 +1,14 @@
Revision history for Test-Future-IO-Impl
+0.21 2026-03-12
+ [CHANGES]
+ * Add a test to assert that a subsequent `->poll` enqueued during
+ the first one is not immediately invoked
+
+ [BUGFIXES]
+ * A hopefully more reliable method for attempting to provoke `EAGAIN`
+ on a pipe write
+
0.20 2026-02-27
[BUGFIXES]
* Improved testing around `POLLHUP`-related tests
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Future-IO-Impl-0.20/META.json
new/Test-Future-IO-Impl-0.21/META.json
--- old/Test-Future-IO-Impl-0.20/META.json 2026-02-27 18:54:53.000000000
+0100
+++ new/Test-Future-IO-Impl-0.21/META.json 2026-03-12 12:33:47.000000000
+0100
@@ -33,7 +33,7 @@
"provides" : {
"Test::Future::IO::Impl" : {
"file" : "lib/Test/Future/IO/Impl.pm",
- "version" : "0.20"
+ "version" : "0.21"
}
},
"release_status" : "stable",
@@ -42,6 +42,6 @@
"http://dev.perl.org/licenses/";
]
},
- "version" : "0.20",
+ "version" : "0.21",
"x_serialization_backend" : "JSON::PP version 4.16"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Future-IO-Impl-0.20/META.yml
new/Test-Future-IO-Impl-0.21/META.yml
--- old/Test-Future-IO-Impl-0.20/META.yml 2026-02-27 18:54:53.000000000
+0100
+++ new/Test-Future-IO-Impl-0.21/META.yml 2026-03-12 12:33:47.000000000
+0100
@@ -15,7 +15,7 @@
provides:
Test::Future::IO::Impl:
file: lib/Test/Future/IO/Impl.pm
- version: '0.20'
+ version: '0.21'
requires:
Errno: '0'
IO::Handle: '0'
@@ -25,5 +25,5 @@
perl: '5.014'
resources:
license: http://dev.perl.org/licenses/
-version: '0.20'
+version: '0.21'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Future-IO-Impl-0.20/lib/Test/Future/IO/Impl.pm
new/Test-Future-IO-Impl-0.21/lib/Test/Future/IO/Impl.pm
--- old/Test-Future-IO-Impl-0.20/lib/Test/Future/IO/Impl.pm 2026-02-27
18:54:53.000000000 +0100
+++ new/Test-Future-IO-Impl-0.21/lib/Test/Future/IO/Impl.pm 2026-03-12
12:33:47.000000000 +0100
@@ -3,7 +3,7 @@
#
# (C) Paul Evans, 2021-2026 -- [email protected]
-package Test::Future::IO::Impl 0.20;
+package Test::Future::IO::Impl 0.21;
use v5.14;
use warnings;
@@ -11,7 +11,7 @@
use Test2::V0;
use Test2::API ();
-use Errno qw( EINVAL EPIPE );
+use Errno qw( EAGAIN EINVAL EPIPE );
use IO::Handle;
use IO::Poll qw( POLLIN POLLOUT POLLHUP POLLERR );
use Socket qw(
@@ -244,6 +244,18 @@
is( [ scalar $f1->get, scalar $f2->get ], [ POLLIN, POLLIN ],
'Future::IO->poll(POLLIN) can enqueue two POLLIN tests' );
+
+ my $f4;
+ my $f3 = Future::IO->poll( $rd, POLLIN )
+ ->on_done( sub { $f4 = Future::IO->poll( $rd, POLLIN ); } );
+
+ is( scalar $f3->get, POLLIN,
+ 'Another ->poll(POLLIN) yields after' );
+ ok( defined $f4, 'Subsequent future enqueued' );
+ ok( !$f4->is_ready, 'Subsequent future is not yet ready after one IO
round' );
+
+ is( scalar $f4->get, POLLIN,
+ 'Subsequent future yields after second round' );
}
# POLLOUT
@@ -259,6 +271,18 @@
is( [ scalar $f1->get, scalar $f2->get ], [ POLLOUT, POLLOUT ],
'Future::IO->poll(POLLOUT) can enqueue two POLLOUT tests' );
+
+ my $f4;
+ my $f3 = Future::IO->poll( $wr, POLLOUT )
+ ->on_done( sub { $f4 = Future::IO->poll( $wr, POLLOUT ); } );
+
+ is( scalar $f3->get, POLLOUT,
+ 'Another ->poll(POLLOUT) yields after' );
+ ok( defined $f4, 'Subsequent future enqueued' );
+ ok( !$f4->is_ready, 'Subsequent future is not yet ready after one IO
round' );
+
+ is( scalar $f4->get, POLLOUT,
+ 'Subsequent future yields after second round' );
}
# POLLIN+POLLOUT at once
@@ -662,10 +686,22 @@
$^O eq "MSWin32" and skip "MSWin32 doesn't do EAGAIN properly", 2;
pipe my ( $rd, $wr ) or die "Cannot pipe() - $!";
+ $rd->blocking( 0 );
$wr->blocking( 0 );
# Attempt to fill the pipe
- $wr->$method( "X" x 4096 ) for 1..256;
+ my $nblocks;
+ for ( 1 .. 256 ) {
+ defined $wr->$method( "X" x 4096 ) and next;
+ $! == EAGAIN or
+ die "->$method on write pipe yielded $!";
+
+ $nblocks = $_;
+ goto got_EAGAIN;
+ }
+ skip "Didn't get EAGAIN despite 256 writes of 4Ki on pipe", 2;
+got_EAGAIN:
+
# clear the error on the filehandle to stop perl printing a warning
$wr->clearerr;
@@ -674,7 +710,7 @@
ok( !$f->is_ready, '$f is still pending' );
# Now make some space
- $rd->read( my $buf, 4096 );
+ $rd->read( my $buf, 4096 ) for $nblocks;
is( scalar $f->get, 4, "Future::IO->$method yields written count" );
}
++++++ _scmsync.obsinfo ++++++
--- /var/tmp/diff_new_pack.8AbxUI/_old 2026-06-08 14:24:52.659956401 +0200
+++ /var/tmp/diff_new_pack.8AbxUI/_new 2026-06-08 14:24:52.663956566 +0200
@@ -1,6 +1,6 @@
-mtime: 1772258114
-commit: db956908b765bf1cae94fccdbbe11d9aa5b98bfc808195c61cb40ada91dc3e68
-url: https://src.opensuse.org/perl/perl-Test-Future-IO-Impl.git
-revision: db956908b765bf1cae94fccdbbe11d9aa5b98bfc808195c61cb40ada91dc3e68
+mtime: 1773468443
+commit: df3ece6e64f308ea9956487f6864723d2067ab66a7eba785a8add9d055f44f94
+url: https://src.opensuse.org/perl/perl-Test-Future-IO-Impl
+revision: df3ece6e64f308ea9956487f6864723d2067ab66a7eba785a8add9d055f44f94
projectscmsync: https://src.opensuse.org/perl/_ObsPrj
++++++ build.specials.obscpio ++++++
++++++ build.specials.obscpio ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/.gitignore new/.gitignore
--- old/.gitignore 1970-01-01 01:00:00.000000000 +0100
+++ new/.gitignore 2026-03-14 07:07:23.000000000 +0100
@@ -0,0 +1 @@
+.osc
