Hello community, here is the log from the commit of package perl-Future for openSUSE:Factory checked in at 2017-06-26 15:56:09 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Future (Old) and /work/SRC/openSUSE:Factory/.perl-Future.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Future" Mon Jun 26 15:56:09 2017 rev:4 rq:506080 version:0.35 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Future/perl-Future.changes 2016-10-06 12:46:28.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Future.new/perl-Future.changes 2017-06-26 15:56:18.133488703 +0200 @@ -1,0 +2,14 @@ +Sat Jun 24 05:37:50 UTC 2017 - [email protected] + +- updated to 0.35 + see /usr/share/doc/packages/perl-Future/Changes + + 0.35 2017/06/23 20:37:57 + [CHANGES] + * Link to YAPC::EU talk video in SEE ALSO + + [BUGFIXES] + * Handle cancelled/completed slots when fmap is cancelled (RT120469) + (thanks tm604) + +------------------------------------------------------------------- Old: ---- Future-0.34.tar.gz New: ---- Future-0.35.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Future.spec ++++++ --- /var/tmp/diff_new_pack.DYIDhF/_old 2017-06-26 15:56:19.041360679 +0200 +++ /var/tmp/diff_new_pack.DYIDhF/_new 2017-06-26 15:56:19.041360679 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Future # -# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,14 +17,14 @@ Name: perl-Future -Version: 0.34 +Version: 0.35 Release: 0 %define cpan_name Future Summary: Represent an Operation Awaiting Completion License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Future/ -Source0: http://www.cpan.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 BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build @@ -90,6 +90,7 @@ %files -f %{name}.files %defattr(-,root,root,755) -%doc Changes examples LICENSE README +%doc Changes examples README +%license LICENSE %changelog ++++++ Future-0.34.tar.gz -> Future-0.35.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.34/Changes new/Future-0.35/Changes --- old/Future-0.34/Changes 2016-10-02 19:42:55.000000000 +0200 +++ new/Future-0.35/Changes 2017-06-23 21:39:17.000000000 +0200 @@ -1,5 +1,13 @@ Revision history for Future +0.35 2017/06/23 20:37:57 + [CHANGES] + * Link to YAPC::EU talk video in SEE ALSO + + [BUGFIXES] + * Handle cancelled/completed slots when fmap is cancelled (RT120469) + (thanks tm604) + 0.34 2016/10/02 18:40:06 [CHANGES] * Added Future::Mutex diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.34/LICENSE new/Future-0.35/LICENSE --- old/Future-0.34/LICENSE 2016-10-02 19:42:55.000000000 +0200 +++ new/Future-0.35/LICENSE 2017-06-23 21:39:17.000000000 +0200 @@ -1,4 +1,4 @@ -This software is copyright (c) 2016 by Paul Evans <[email protected]>. +This software is copyright (c) 2017 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) 2016 by Paul Evans <[email protected]>. +This software is Copyright (c) 2017 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) 2016 by Paul Evans <[email protected]>. +This software is Copyright (c) 2017 by Paul Evans <[email protected]>. This is free software, licensed under: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.34/META.json new/Future-0.35/META.json --- old/Future-0.34/META.json 2016-10-02 19:42:55.000000000 +0200 +++ new/Future-0.35/META.json 2017-06-23 21:39:17.000000000 +0200 @@ -4,7 +4,7 @@ "Paul Evans <[email protected]>" ], "dynamic_config" : 1, - "generated_by" : "Module::Build version 0.4218", + "generated_by" : "Module::Build version 0.422", "license" : [ "perl_5" ], @@ -34,19 +34,19 @@ "provides" : { "Future" : { "file" : "lib/Future.pm", - "version" : "0.34" + "version" : "0.35" }, "Future::Mutex" : { "file" : "lib/Future/Mutex.pm", - "version" : "0.34" + "version" : "0.35" }, "Future::Utils" : { "file" : "lib/Future/Utils.pm", - "version" : "0.34" + "version" : "0.35" }, "Test::Future" : { "file" : "lib/Test/Future.pm", - "version" : "0.34" + "version" : "0.35" } }, "release_status" : "stable", @@ -56,6 +56,6 @@ ], "x_IRC" : "irc://irc.perl.org/#io-async" }, - "version" : "0.34", + "version" : "0.35", "x_serialization_backend" : "JSON::PP version 2.27400" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.34/META.yml new/Future-0.35/META.yml --- old/Future-0.34/META.yml 2016-10-02 19:42:55.000000000 +0200 +++ new/Future-0.35/META.yml 2017-06-23 21:39:17.000000000 +0200 @@ -8,7 +8,7 @@ Test::More: '0.88' Test::Refcount: '0' dynamic_config: 1 -generated_by: 'Module::Build version 0.4218, CPAN::Meta::Converter version 2.150005' +generated_by: 'Module::Build version 0.422, CPAN::Meta::Converter version 2.150005' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -17,16 +17,16 @@ provides: Future: file: lib/Future.pm - version: '0.34' + version: '0.35' Future::Mutex: file: lib/Future/Mutex.pm - version: '0.34' + version: '0.35' Future::Utils: file: lib/Future/Utils.pm - version: '0.34' + version: '0.35' Test::Future: file: lib/Test/Future.pm - version: '0.34' + version: '0.35' requires: Carp: '1.25' Test::Builder::Module: '0' @@ -35,5 +35,5 @@ resources: IRC: irc://irc.perl.org/#io-async license: http://dev.perl.org/licenses/ -version: '0.34' +version: '0.35' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.34/Makefile.PL new/Future-0.35/Makefile.PL --- old/Future-0.34/Makefile.PL 2016-10-02 19:42:55.000000000 +0200 +++ new/Future-0.35/Makefile.PL 2017-06-23 21:39:17.000000000 +0200 @@ -1,4 +1,4 @@ -# Note: this file was auto-generated by Module::Build::Compat version 0.4218 +# Note: this file was auto-generated by Module::Build::Compat version 0.4220 require 5.008; use ExtUtils::MakeMaker; WriteMakefile diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.34/README new/Future-0.35/README --- old/Future-0.34/README 2016-10-02 19:42:55.000000000 +0200 +++ new/Future-0.35/README 2017-06-23 21:39:17.000000000 +0200 @@ -1158,6 +1158,10 @@ http://leonerds-code.blogspot.co.uk/2013/12/futures-advent-day-1.html + * "Asynchronous Programming with Futures" - YAPC::EU 2014 + + https://www.youtube.com/watch?v=u9dZgFM6FtE + TODO * Consider the ability to pass the constructor an await CODEref, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.34/lib/Future/Mutex.pm new/Future-0.35/lib/Future/Mutex.pm --- old/Future-0.34/lib/Future/Mutex.pm 2016-10-02 19:42:55.000000000 +0200 +++ new/Future-0.35/lib/Future/Mutex.pm 2017-06-23 21:39:17.000000000 +0200 @@ -8,7 +8,7 @@ use strict; use warnings; -our $VERSION = '0.34'; +our $VERSION = '0.35'; use Future; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.34/lib/Future/Utils.pm new/Future-0.35/lib/Future/Utils.pm --- old/Future-0.34/lib/Future/Utils.pm 2016-10-02 19:42:55.000000000 +0200 +++ new/Future-0.35/lib/Future/Utils.pm 2017-06-23 21:39:17.000000000 +0200 @@ -8,7 +8,7 @@ use strict; use warnings; -our $VERSION = '0.34'; +our $VERSION = '0.35'; use Exporter 'import'; # Can't import the one from Exporter as it relies on package inheritance @@ -639,7 +639,7 @@ !defined $_ or $_->is_ready or $_->cancel for @slots; }); $future->on_cancel( sub { - $_->cancel for @slots; + !defined $_ or $_->is_ready or $_->cancel for @slots; }); return $future; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.34/lib/Future.pm new/Future-0.35/lib/Future.pm --- old/Future-0.34/lib/Future.pm 2016-10-02 19:42:55.000000000 +0200 +++ new/Future-0.35/lib/Future.pm 2017-06-23 21:39:17.000000000 +0200 @@ -9,7 +9,7 @@ use warnings; no warnings 'recursion'; # Disable the "deep recursion" warning -our $VERSION = '0.34'; +our $VERSION = '0.35'; use Carp qw(); # don't import croak use Scalar::Util qw( weaken blessed reftype ); @@ -771,7 +771,7 @@ sub get { my $self = shift; - $self->await until $self->{ready}; + until( $self->{ready} ) { $self->await } if( $self->{failure} ) { $self->{reported} = 1; my $exception = $self->{failure}->[0]; @@ -902,7 +902,7 @@ sub failure { my $self = shift; - $self->await until $self->{ready}; + until( $self->{ready} ) { $self->await } return unless $self->{failure}; $self->{reported} = 1; return $self->{failure}->[0] if !wantarray; @@ -2354,6 +2354,12 @@ L<http://leonerds-code.blogspot.co.uk/2013/12/futures-advent-day-1.html> +=item * + +"Asynchronous Programming with Futures" - YAPC::EU 2014 + +L<https://www.youtube.com/watch?v=u9dZgFM6FtE> + =back =cut diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.34/lib/Test/Future.pm new/Future-0.35/lib/Test/Future.pm --- old/Future-0.34/lib/Test/Future.pm 2016-10-02 19:42:55.000000000 +0200 +++ new/Future-0.35/lib/Test/Future.pm 2017-06-23 21:39:17.000000000 +0200 @@ -9,7 +9,7 @@ use warnings; use base qw( Test::Builder::Module ); -our $VERSION = '0.34'; +our $VERSION = '0.35'; our @EXPORT = qw( no_pending_futures diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Future-0.34/t/36utils-map.t new/Future-0.35/t/36utils-map.t --- old/Future-0.34/t/36utils-map.t 2016-10-02 19:42:55.000000000 +0200 +++ new/Future-0.35/t/36utils-map.t 2017-06-23 21:39:17.000000000 +0200 @@ -4,6 +4,7 @@ use warnings; use Test::More; +use Test::Fatal; use Future; use Future::Utils qw( fmap_concat fmap_scalar ); @@ -43,6 +44,19 @@ is_deeply( [ $future->get ], [qw( A B C D E )], '$future->get for fmap_concat out of order' ); } +# fmap_concat cancel +{ + my $f = Future->new; + my $fmap = fmap_concat { $f } + foreach => [ $f ], + concurrent => 2; + + ok( !exception { + $fmap->cancel; + }, '$fmap_concat->cancel does not throw on undef slots' ); + ok( $fmap->is_cancelled, 'was cancelled correctly' ); +} + # fmap_scalar no concurrency { my @subf;
