Hello community, here is the log from the commit of package perl-Contextual-Return for openSUSE:Factory checked in at 2017-04-29 10:53:00 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Contextual-Return (Old) and /work/SRC/openSUSE:Factory/.perl-Contextual-Return.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Contextual-Return" Sat Apr 29 10:53:00 2017 rev:17 rq:490181 version:0.004014 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Contextual-Return/perl-Contextual-Return.changes 2017-04-20 20:58:00.312103670 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Contextual-Return.new/perl-Contextual-Return.changes 2017-04-29 10:53:02.068379774 +0200 @@ -1,0 +2,6 @@ +Wed Apr 19 05:16:47 UTC 2017 - co...@suse.com + +- updated to 0.004014 + see /usr/share/doc/packages/perl-Contextual-Return/Changes + +------------------------------------------------------------------- Old: ---- Contextual-Return-0.004012.tar.gz New: ---- Contextual-Return-0.004014.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Contextual-Return.spec ++++++ --- /var/tmp/diff_new_pack.mwrQji/_old 2017-04-29 10:53:03.716146996 +0200 +++ /var/tmp/diff_new_pack.mwrQji/_new 2017-04-29 10:53:03.720146431 +0200 @@ -17,7 +17,7 @@ Name: perl-Contextual-Return -Version: 0.004012 +Version: 0.004014 Release: 0 %define cpan_name Contextual-Return Summary: Create context-sensitive return values ++++++ Contextual-Return-0.004012.tar.gz -> Contextual-Return-0.004014.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Contextual-Return-0.004012/Changes new/Contextual-Return-0.004014/Changes --- old/Contextual-Return-0.004012/Changes 2017-04-12 17:06:09.000000000 +0200 +++ new/Contextual-Return-0.004014/Changes 2017-04-14 10:46:16.000000000 +0200 @@ -180,10 +180,18 @@ (thanks, Jay!) - 0.004012 Thu Apr 13 01:06:09 2017 - Optimized previous patch for memory leak (thanks, Jay and Father C.) - Added missing test plan to t/fail.t + + + +0.004014 Fri Apr 14 18:46:16 2017 + + - Reverted to 0.004011 due to segfaults under + optimized memory leak patch (thanks, Slavin!) + + diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Contextual-Return-0.004012/META.json new/Contextual-Return-0.004014/META.json --- old/Contextual-Return-0.004012/META.json 2017-04-12 17:06:12.000000000 +0200 +++ new/Contextual-Return-0.004014/META.json 2017-04-14 10:46:18.000000000 +0200 @@ -39,5 +39,5 @@ } }, "release_status" : "stable", - "version" : "0.004012" + "version" : "0.004014" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Contextual-Return-0.004012/META.yml new/Contextual-Return-0.004014/META.yml --- old/Contextual-Return-0.004012/META.yml 2017-04-12 17:06:12.000000000 +0200 +++ new/Contextual-Return-0.004014/META.yml 2017-04-14 10:46:18.000000000 +0200 @@ -21,4 +21,4 @@ Test::More: '0' Want: '0' version: '0' -version: '0.004012' +version: '0.004014' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Contextual-Return-0.004012/README new/Contextual-Return-0.004014/README --- old/Contextual-Return-0.004012/README 2017-04-12 17:06:09.000000000 +0200 +++ new/Contextual-Return-0.004014/README 2017-04-14 10:46:16.000000000 +0200 @@ -1,4 +1,4 @@ -Contextual::Return version 0.004012 +Contextual::Return version 0.004014 This module provides a collection of named blocks that allow a return statement to return different values depending on the context in which it's diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Contextual-Return-0.004012/lib/Contextual/Return.pm new/Contextual-Return-0.004014/lib/Contextual/Return.pm --- old/Contextual-Return-0.004012/lib/Contextual/Return.pm 2017-04-12 17:06:09.000000000 +0200 +++ new/Contextual-Return-0.004014/lib/Contextual/Return.pm 2017-04-14 10:46:16.000000000 +0200 @@ -1,7 +1,7 @@ package Contextual::Return; use warnings; use strict; -our $VERSION = '0.004012'; +our $VERSION = '0.004014'; my %attrs_of; @@ -273,8 +273,8 @@ my ($block) = @_; # Determine call context and arg list... - my $args = \@DB::args; - my $context = do { package DB; (CORE::caller 1)[5]; }; + my $context; + my $args = do { package DB; $context=(CORE::caller 1)[5]; my $args = \@DB::args; ()=CORE::caller(1); $args }; # No args -> return appropriate value... if (!@_) { @@ -314,7 +314,7 @@ *{$subname} = sub(&;@) :lvalue { # (handler, return_lvalue); my $handler = shift; my $impl; - my $args = \@DB::args; { package DB; ()=CORE::caller(1); }; + my $args = do{ package DB; ()=CORE::caller(1); my $args = \@DB::args; ()=CORE::caller(1); $args }; if (@_==0) { $impl = tie $_[0], 'Contextual::Return::Lvalue', $subname => $handler, args=>$args; @@ -471,7 +471,7 @@ # Ensure we have an object... my $attrs; if (!refaddr $crv) { - my $args = \@DB::args; { package DB; ()=CORE::caller(1); }; + my $args = do{ package DB; ()=CORE::caller(1); my $args = \@DB::args; ()=CORE::caller(1); $args }; my $subname = (CORE::caller(1))[3]; if (!defined $subname) { $subname = 'bare LIST {...}'; @@ -561,7 +561,7 @@ # Ensure we have an object... my $attrs; if (!refaddr $crv) { - my $args = \@DB::args; { package DB; ()=CORE::caller(1); }; + my $args = do{ package DB; ()=CORE::caller(1); my $args = \@DB::args; ()=CORE::caller(1); $args }; my $subname = (CORE::caller(1))[3]; if (!defined $subname) { $subname = 'bare VOID {...}'; @@ -681,7 +681,7 @@ # Ensure we have an object... my $attrs; if (!refaddr $crv) { - my $args = \@DB::args; { package DB; ()=CORE::caller(1); }; + my $args = do{ package DB; ()=CORE::caller(1); my $args = \@DB::args; ()=CORE::caller(1); $args }; my $subname = (CORE::caller(1))[3]; if (!defined $subname) { $subname = "bare $context {...}"; @@ -813,7 +813,7 @@ # Ensure we have an object... my $attrs; if (!refaddr $crv) { - my $args = \@DB::args; { package DB; ()=CORE::caller(1); }; + my $args = do{ package DB; ()=CORE::caller(1); my $args = \@DB::args; ()=CORE::caller(1); $args }; my $subname = (CORE::caller(1))[3]; if (!defined $subname) { $subname = "bare $context_name {...}"; @@ -1736,7 +1736,7 @@ =head1 VERSION -This document describes Contextual::Return version 0.004012 +This document describes Contextual::Return version 0.004014 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Contextual-Return-0.004012/t/fail.t new/Contextual-Return-0.004014/t/fail.t --- old/Contextual-Return-0.004012/t/fail.t 2017-04-12 17:04:45.000000000 +0200 +++ new/Contextual-Return-0.004014/t/fail.t 2017-04-13 05:43:42.000000000 +0200 @@ -1,6 +1,7 @@ use Contextual::Return qw< FAIL FAIL_WITH >; use Test::More; + plan tests => 19; sub eval_nok(&$$) { @@ -60,3 +61,5 @@ eval_nok { my $x = fail_auto_message(); $x.'a' } 'Call to main::fail_auto_message() failed' => 'Exception thrown in str context'; + +done_testing;