Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package perl-Future for openSUSE:Factory checked in at 2022-01-28 22:12:35 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Future (Old) and /work/SRC/openSUSE:Factory/.perl-Future.new.1898 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Future" Fri Jan 28 22:12:35 2022 rev:16 rq:949642 version:0.48 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Future/perl-Future.changes 2021-01-05 18:13:20.675328956 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Future.new.1898/perl-Future.changes 2022-01-28 22:13:19.658564968 +0100 @@ -1,0 +2,13 @@ +Thu Jan 27 03:07:34 UTC 2022 - Tina M??ller <[email protected]> + +- updated to 0.48 + see /usr/share/doc/packages/perl-Future/Changes + + 0.48 2022-01-26 + [CHANGES] + * Implement the new AWAIT_ON_CANCEL API shape for Future::AsyncAwait + + [BUGFIXES] + * Make sure to set rtime for immediate futures (RT134620) + +------------------------------------------------------------------- Old: ---- Future-0.47.tar.gz New: ---- Future-0.48.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Future.spec ++++++ --- /var/tmp/diff_new_pack.dYmhfk/_old 2022-01-28 22:13:20.134561711 +0100 +++ /var/tmp/diff_new_pack.dYmhfk/_new 2022-01-28 22:13:20.138561684 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-Future # -# Copyright (c) 2021 SUSE LLC +# Copyright (c) 2022 SUSE LLC # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -18,7 +18,7 @@ %define cpan_name Future Name: perl-Future -Version: 0.47 +Version: 0.48 Release: 0 Summary: Represent an operation awaiting completion License: Artistic-1.0 OR GPL-1.0-or-later ++++++ Future-0.47.tar.gz -> Future-0.48.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.47/Changes new/Future-0.48/Changes --- old/Future-0.47/Changes 2021-01-01 14:58:12.000000000 +0100 +++ new/Future-0.48/Changes 2022-01-26 01:32:03.000000000 +0100 @@ -1,5 +1,12 @@ Revision history for Future +0.48 2022-01-26 + [CHANGES] + * Implement the new AWAIT_ON_CANCEL API shape for Future::AsyncAwait + + [BUGFIXES] + * Make sure to set rtime for immediate futures (RT134620) + 0.47 2021-01-01 [BUGFIXES] * Don't weaken() the waiting future in Future::Mutex as that causes diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.47/LICENSE new/Future-0.48/LICENSE --- old/Future-0.47/LICENSE 2021-01-01 14:58:12.000000000 +0100 +++ new/Future-0.48/LICENSE 2022-01-26 01:32:03.000000000 +0100 @@ -1,4 +1,4 @@ -This software is copyright (c) 2021 by Paul Evans <[email protected]>. +This software is copyright (c) 2022 by Paul Evans <[email protected]>. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. @@ -12,7 +12,7 @@ --- The GNU General Public License, Version 1, February 1989 --- -This software is Copyright (c) 2021 by Paul Evans <[email protected]>. +This software is Copyright (c) 2022 by Paul Evans <[email protected]>. This is free software, licensed under: @@ -272,7 +272,7 @@ --- The Artistic License 1.0 --- -This software is Copyright (c) 2021 by Paul Evans <[email protected]>. +This software is Copyright (c) 2022 by Paul Evans <[email protected]>. This is free software, licensed under: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.47/META.json new/Future-0.48/META.json --- old/Future-0.47/META.json 2021-01-01 14:58:12.000000000 +0100 +++ new/Future-0.48/META.json 2022-01-26 01:32:03.000000000 +0100 @@ -39,31 +39,31 @@ "provides" : { "Future" : { "file" : "lib/Future.pm", - "version" : "0.47" + "version" : "0.48" }, "Future::Exception" : { "file" : "lib/Future/Exception.pm", - "version" : "0.47" + "version" : "0.48" }, "Future::Mutex" : { "file" : "lib/Future/Mutex.pm", - "version" : "0.47" + "version" : "0.48" }, "Future::Queue" : { "file" : "lib/Future/Queue.pm", - "version" : "0.47" + "version" : "0.48" }, "Future::Utils" : { "file" : "lib/Future/Utils.pm", - "version" : "0.47" + "version" : "0.48" }, "Test::Future" : { "file" : "lib/Test/Future.pm", - "version" : "0.47" + "version" : "0.48" }, "Test::Future::Deferred" : { "file" : "lib/Test/Future/Deferred.pm", - "version" : "0.47" + "version" : "0.48" } }, "release_status" : "stable", @@ -73,6 +73,6 @@ ], "x_IRC" : "irc://irc.perl.org/#io-async" }, - "version" : "0.47", - "x_serialization_backend" : "JSON::PP version 4.05" + "version" : "0.48", + "x_serialization_backend" : "JSON::PP version 4.06" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.47/META.yml new/Future-0.48/META.yml --- old/Future-0.47/META.yml 2021-01-01 14:58:12.000000000 +0100 +++ new/Future-0.48/META.yml 2022-01-26 01:32:03.000000000 +0100 @@ -19,25 +19,25 @@ provides: Future: file: lib/Future.pm - version: '0.47' + version: '0.48' Future::Exception: file: lib/Future/Exception.pm - version: '0.47' + version: '0.48' Future::Mutex: file: lib/Future/Mutex.pm - version: '0.47' + version: '0.48' Future::Queue: file: lib/Future/Queue.pm - version: '0.47' + version: '0.48' Future::Utils: file: lib/Future/Utils.pm - version: '0.47' + version: '0.48' Test::Future: file: lib/Test/Future.pm - version: '0.47' + version: '0.48' Test::Future::Deferred: file: lib/Test/Future/Deferred.pm - version: '0.47' + version: '0.48' requires: Carp: '1.25' Test::Builder::Module: '0' @@ -46,5 +46,5 @@ resources: IRC: irc://irc.perl.org/#io-async license: http://dev.perl.org/licenses/ -version: '0.47' +version: '0.48' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.47/lib/Future/Exception.pm new/Future-0.48/lib/Future/Exception.pm --- old/Future-0.47/lib/Future/Exception.pm 2021-01-01 14:58:12.000000000 +0100 +++ new/Future-0.48/lib/Future/Exception.pm 2022-01-26 01:32:03.000000000 +0100 @@ -9,7 +9,7 @@ use strict; use warnings; -our $VERSION = '0.47'; +our $VERSION = '0.48'; =head1 NAME diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.47/lib/Future/Mutex.pm new/Future-0.48/lib/Future/Mutex.pm --- old/Future-0.47/lib/Future/Mutex.pm 2021-01-01 14:58:12.000000000 +0100 +++ new/Future-0.48/lib/Future/Mutex.pm 2022-01-26 01:32:03.000000000 +0100 @@ -9,7 +9,7 @@ use strict; use warnings; -our $VERSION = '0.47'; +our $VERSION = '0.48'; use Future; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.47/lib/Future/Queue.pm new/Future-0.48/lib/Future/Queue.pm --- old/Future-0.47/lib/Future/Queue.pm 2021-01-01 14:58:12.000000000 +0100 +++ new/Future-0.48/lib/Future/Queue.pm 2022-01-26 01:32:03.000000000 +0100 @@ -9,7 +9,7 @@ use strict; use warnings; -our $VERSION = '0.47'; +our $VERSION = '0.48'; =head1 NAME diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.47/lib/Future/Utils.pm new/Future-0.48/lib/Future/Utils.pm --- old/Future-0.47/lib/Future/Utils.pm 2021-01-01 14:58:12.000000000 +0100 +++ new/Future-0.48/lib/Future/Utils.pm 2022-01-26 01:32:03.000000000 +0100 @@ -9,7 +9,7 @@ use strict; use warnings; -our $VERSION = '0.47'; +our $VERSION = '0.48'; use Exporter 'import'; # Can't import the one from Exporter as it relies on package inheritance diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.47/lib/Future.pm new/Future-0.48/lib/Future.pm --- old/Future-0.47/lib/Future.pm 2021-01-01 14:58:12.000000000 +0100 +++ new/Future-0.48/lib/Future.pm 2022-01-26 01:32:03.000000000 +0100 @@ -1,7 +1,7 @@ # You may distribute under the terms of either the GNU General Public License # or the Artistic License (the same terms as Perl itself) # -# (C) Paul Evans, 2011-2020 -- [email protected] +# (C) Paul Evans, 2011-2022 -- [email protected] package Future; @@ -10,7 +10,7 @@ use warnings; no warnings 'recursion'; # Disable the "deep recursion" warning -our $VERSION = '0.47'; +our $VERSION = '0.48'; use Carp qw(); # don't import croak use Scalar::Util qw( weaken blessed reftype ); @@ -629,6 +629,9 @@ $self->{ready} = 1; $self->{ready_at} = _shortmess "done" if DEBUG; $self->{result} = [ @_ ]; + if( $TIMES ) { + $self->{rtime} = [ gettimeofday ]; + } } return $self; @@ -691,6 +694,9 @@ $self->{ready} = 1; $self->{ready_at} = _shortmess "failed" if DEBUG; $self->{failure} = [ $exception, @more ]; + if( $TIMES ) { + $self->{rtime} = [ gettimeofday ]; + } } return $self; @@ -774,6 +780,14 @@ sub AWAIT_ON_CANCEL { my $self = shift; + my ( $code ) = @_; + + push @{ $self->{on_cancel} }, $code; +} + +sub AWAIT_CHAIN_CANCEL +{ + my $self = shift; my ( $f2 ) = @_; push @{ $self->{on_cancel} }, $f2; @@ -782,9 +796,6 @@ weaken( $r->[1] ); } -# New name for it -*AWAIT_CHAIN_CANCEL = \&AWAIT_ON_CANCEL; - sub _revoke_on_cancel { my $self = shift; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.47/lib/Test/Future/Deferred.pm new/Future-0.48/lib/Test/Future/Deferred.pm --- old/Future-0.47/lib/Test/Future/Deferred.pm 2021-01-01 14:58:12.000000000 +0100 +++ new/Future-0.48/lib/Test/Future/Deferred.pm 2022-01-26 01:32:03.000000000 +0100 @@ -10,7 +10,7 @@ use warnings; use base qw( Future ); -our $VERSION = '0.47'; +our $VERSION = '0.48'; =head1 NAME diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.47/lib/Test/Future.pm new/Future-0.48/lib/Test/Future.pm --- old/Future-0.47/lib/Test/Future.pm 2021-01-01 14:58:12.000000000 +0100 +++ new/Future-0.48/lib/Test/Future.pm 2022-01-26 01:32:03.000000000 +0100 @@ -10,7 +10,7 @@ use warnings; use base qw( Test::Builder::Module ); -our $VERSION = '0.47'; +our $VERSION = '0.48'; our @EXPORT = qw( no_pending_futures diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.47/t/21debug.t new/Future-0.48/t/21debug.t --- old/Future-0.47/t/21debug.t 2021-01-01 14:58:12.000000000 +0100 +++ new/Future-0.48/t/21debug.t 2022-01-26 01:32:03.000000000 +0100 @@ -79,6 +79,12 @@ ok( defined $future->elapsed, '$future has ->elapsed time' ); ok( $future->elapsed >= 0, '$future elapsed time >= 0' ); + + my $imm = Future->done; + + ok( defined $imm->rtime, 'Immediate future has rtime' ); + ok( defined $imm->elapsed, 'Immediate future has ->elapsed time' ); + ok( $imm->elapsed >= 0, 'Immediate future elapsed time >= 0' ); } done_testing;
