Hello community, here is the log from the commit of package perl-Try-Tiny for openSUSE:Factory checked in at 2014-01-22 09:44:32 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Try-Tiny (Old) and /work/SRC/openSUSE:Factory/.perl-Try-Tiny.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Try-Tiny" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Try-Tiny/perl-Try-Tiny.changes 2013-07-30 18:48:28.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Try-Tiny.new/perl-Try-Tiny.changes 2014-01-23 15:52:29.000000000 +0100 @@ -1,0 +2,8 @@ +Fri Oct 4 09:13:58 UTC 2013 - [email protected] + +- updated to 0.18 + - fix tests for pre-Test-More-0.88 (Paul Howarth, #10) + - work around [rt.perl #119311] which was causing incorrect error messages in + some cases during global destruction (Graham Knop, #9) + +------------------------------------------------------------------- Old: ---- Try-Tiny-0.16.tar.gz New: ---- Try-Tiny-0.18.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Try-Tiny.spec ++++++ --- /var/tmp/diff_new_pack.OIkYnC/_old 2014-01-23 15:52:30.000000000 +0100 +++ /var/tmp/diff_new_pack.OIkYnC/_new 2014-01-23 15:52:30.000000000 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-Try-Tiny # -# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2014 SUSE LINUX Products 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-Try-Tiny -Version: 0.16 +Version: 0.18 Release: 0 %define cpan_name Try-Tiny -Summary: minimal try/catch with proper preservation of $@ +Summary: Minimal try/catch with proper preservation of $@ License: MIT Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Try-Tiny/ -Source: http://www.cpan.org/authors/id/D/DO/DOY/%{cpan_name}-%{version}.tar.gz +Source: %{cpan_name}-%{version}.tar.gz BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl ++++++ Try-Tiny-0.16.tar.gz -> Try-Tiny-0.18.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Try-Tiny-0.16/Changes new/Try-Tiny-0.18/Changes --- old/Try-Tiny-0.16/Changes 2013-07-10 17:50:18.000000000 +0200 +++ new/Try-Tiny-0.18/Changes 2013-08-17 20:33:18.000000000 +0200 @@ -1,5 +1,12 @@ Revision history for Try-Tiny +0.18 2013-08-17 + - fix tests for pre-Test-More-0.88 (Paul Howarth, #10) + +0.17 2013-08-16 + - work around [rt.perl #119311] which was causing incorrect error messages in + some cases during global destruction (Graham Knop, #9) + 0.16 2013-07-10 - remove accidental Sub::Name test dep diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Try-Tiny-0.16/MANIFEST new/Try-Tiny-0.18/MANIFEST --- old/Try-Tiny-0.16/MANIFEST 2013-07-10 17:50:18.000000000 +0200 +++ new/Try-Tiny-0.18/MANIFEST 2013-08-17 20:33:18.000000000 +0200 @@ -14,6 +14,7 @@ t/erroneous_usage.t t/finally.t t/given_when.t +t/global_destruction_forked.t t/named.t t/when.t xt/release/eol.t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Try-Tiny-0.16/META.json new/Try-Tiny-0.18/META.json --- old/Try-Tiny-0.16/META.json 2013-07-10 17:50:18.000000000 +0200 +++ new/Try-Tiny-0.18/META.json 2013-08-17 20:33:18.000000000 +0200 @@ -59,10 +59,10 @@ "web" : "https://github.com/doy/try-tiny"; } }, - "version" : "0.16", + "version" : "0.18", "x_Dist_Zilla" : { "perl" : { - "version" : "5.018000" + "version" : "5.018001" }, "plugins" : [ { @@ -290,12 +290,14 @@ "Alex <alex@koban.(none)>", "Andrew Yates <[email protected]>", "Glenn Fowler <[email protected]>", + "Graham Knop <[email protected]>", "Hans Dieter Pearcey <[email protected]>", "Jonathan Yu <[email protected]>", "Karen Etheridge <[email protected]>", "Marc Mims <[email protected]>", "Mark Fowler <[email protected]>", "Mark Stosberg <[email protected]>", + "Paul Howarth <[email protected]>", "Peter Rabbitson <[email protected]>", "Ricardo Signes <[email protected]>", "chromatic <[email protected]>" diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Try-Tiny-0.16/META.yml new/Try-Tiny-0.18/META.yml --- old/Try-Tiny-0.16/META.yml 2013-07-10 17:50:18.000000000 +0200 +++ new/Try-Tiny-0.18/META.yml 2013-08-17 20:33:18.000000000 +0200 @@ -29,10 +29,10 @@ bugtracker: https://github.com/doy/try-tiny/issues homepage: http://metacpan.org/release/Try-Tiny repository: git://github.com/doy/try-tiny.git -version: 0.16 +version: 0.18 x_Dist_Zilla: perl: - version: 5.018000 + version: 5.018001 plugins: - class: Dist::Zilla::Plugin::GatherDir @@ -212,12 +212,14 @@ - 'Alex <alex@koban.(none)>' - 'Andrew Yates <[email protected]>' - 'Glenn Fowler <[email protected]>' + - 'Graham Knop <[email protected]>' - 'Hans Dieter Pearcey <[email protected]>' - 'Jonathan Yu <[email protected]>' - 'Karen Etheridge <[email protected]>' - 'Marc Mims <[email protected]>' - 'Mark Fowler <[email protected]>' - 'Mark Stosberg <[email protected]>' + - 'Paul Howarth <[email protected]>' - 'Peter Rabbitson <[email protected]>' - 'Ricardo Signes <[email protected]>' - 'chromatic <[email protected]>' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Try-Tiny-0.16/Makefile.PL new/Try-Tiny-0.18/Makefile.PL --- old/Try-Tiny-0.16/Makefile.PL 2013-07-10 17:50:18.000000000 +0200 +++ new/Try-Tiny-0.18/Makefile.PL 2013-08-17 20:33:18.000000000 +0200 @@ -33,7 +33,7 @@ "Test::More" => 0, "if" => 0 }, - "VERSION" => "0.16", + "VERSION" => "0.18", "test" => { "TESTS" => "t/*.t" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Try-Tiny-0.16/README new/Try-Tiny-0.18/README --- old/Try-Tiny-0.16/README 2013-07-10 17:50:18.000000000 +0200 +++ new/Try-Tiny-0.18/README 2013-08-17 20:33:18.000000000 +0200 @@ -1,7 +1,7 @@ This archive contains the distribution Try-Tiny, -version 0.16: +version 0.18: minimal try/catch with proper preservation of $@ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Try-Tiny-0.16/lib/Try/Tiny.pm new/Try-Tiny-0.18/lib/Try/Tiny.pm --- old/Try-Tiny-0.16/lib/Try/Tiny.pm 2013-07-10 17:50:18.000000000 +0200 +++ new/Try-Tiny-0.18/lib/Try/Tiny.pm 2013-08-17 20:33:18.000000000 +0200 @@ -3,7 +3,7 @@ $Try::Tiny::AUTHORITY = 'cpan:NUFFIN'; } { - $Try::Tiny::VERSION = '0.16'; + $Try::Tiny::VERSION = '0.18'; } use 5.006; # ABSTRACT: minimal try/catch with proper preservation of $@ @@ -30,7 +30,9 @@ # to $failed my $wantarray = wantarray; - my ( $catch, @finally ); + # work around perl bug by explicitly initializing these, due to the likelyhood + # this will be used in global destruction (perl rt#119311) + my ( $catch, @finally ) = (); # find labeled blocks in the argument list. # catch and finally tag the blocks by blessing a scalar reference to them. @@ -180,7 +182,7 @@ =head1 VERSION -version 0.16 +version 0.18 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Try-Tiny-0.16/t/global_destruction_forked.t new/Try-Tiny-0.18/t/global_destruction_forked.t --- old/Try-Tiny-0.16/t/global_destruction_forked.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Try-Tiny-0.18/t/global_destruction_forked.t 2013-08-17 20:33:18.000000000 +0200 @@ -0,0 +1,57 @@ +use strict; +use warnings; +use Test::More tests => 3; +use Try::Tiny; + +{ + package WithCatch; + use Try::Tiny; + + sub DESTROY { + try {} + catch {}; + return; + } +} + +{ + package WithFinally; + use Try::Tiny; + + sub DESTROY { + try {} + finally {}; + return; + } +} + +my $parent = $$; + +try { + my $pid = fork; + unless ($pid) { + my $o = bless {}, 'WithCatch'; + $SIG{__DIE__} = sub { + exit 1 + if $_[0] =~ /A try\(\) may not be followed by multiple catch\(\) blocks/; + exit 2; + }; + exit 0; + } + waitpid $pid, 0; + is $?, 0, 'nested try in cleanup after fork does not maintain outer catch block'; +} +catch {}; + +try { + my $pid = fork; + unless ($pid) { + my $o = bless {}, 'WithFinally'; + exit 0; + } + waitpid $pid, 0; + is $?, 0, 'nested try in cleanup after fork does not maintain outer finally block'; +} +finally { exit 1 if $parent != $$ }; + +pass("Didn't just exit"); -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
