Hello community, here is the log from the commit of package perl-Contextual-Return for openSUSE:Factory checked in at 2017-04-20 20:57:56 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Contextual-Return (Old) and /work/SRC/openSUSE:Factory/.perl-Contextual-Return.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Contextual-Return" Thu Apr 20 20:57:56 2017 rev:16 rq:489034 version:0.004012 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Contextual-Return/perl-Contextual-Return.changes 2017-01-22 00:18:49.398756948 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Contextual-Return.new/perl-Contextual-Return.changes 2017-04-20 20:58:00.312103670 +0200 @@ -1,0 +2,29 @@ +Thu Apr 13 05:16:25 UTC 2017 - co...@suse.com + +- updated to 0.004012 + see /usr/share/doc/packages/perl-Contextual-Return/Changes + + + + + 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 + +------------------------------------------------------------------- +Sun Apr 9 05:17:17 UTC 2017 - co...@suse.com + +- updated to 0.004011 + see /usr/share/doc/packages/perl-Contextual-Return/Changes + + + + 0.004011 Sat Apr 8 15:23:14 2017 + + - Patched memory leak from use of @DB::args + (thanks, Jay!) + +------------------------------------------------------------------- Old: ---- Contextual-Return-0.004010.tar.gz New: ---- Contextual-Return-0.004012.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Contextual-Return.spec ++++++ --- /var/tmp/diff_new_pack.yzmE8M/_old 2017-04-20 20:58:01.319961139 +0200 +++ /var/tmp/diff_new_pack.yzmE8M/_new 2017-04-20 20:58:01.323960573 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Contextual-Return # -# 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-Contextual-Return -Version: 0.004010 +Version: 0.004012 Release: 0 %define cpan_name Contextual-Return Summary: Create context-sensitive return values License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Contextual-Return/ -Source0: http://www.cpan.org/authors/id/D/DC/DCONWAY/%{cpan_name}-%{version}.tar.gz +Source0: https://cpan.metacpan.org/authors/id/D/DC/DCONWAY/%{cpan_name}-%{version}.tar.gz Source1: cpanspec.yml BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build ++++++ Contextual-Return-0.004010.tar.gz -> Contextual-Return-0.004012.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Contextual-Return-0.004010/Changes new/Contextual-Return-0.004012/Changes --- old/Contextual-Return-0.004010/Changes 2016-12-01 07:41:14.000000000 +0100 +++ new/Contextual-Return-0.004012/Changes 2017-04-12 17:06:09.000000000 +0200 @@ -172,3 +172,18 @@ - Improved DUMP behaviour when passed a non-CRV argument (thanks, Mathew) + + +0.004011 Sat Apr 8 15:23:14 2017 + + - Patched memory leak from use of @DB::args + (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 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Contextual-Return-0.004010/META.json new/Contextual-Return-0.004012/META.json --- old/Contextual-Return-0.004010/META.json 2016-12-01 07:41:17.000000000 +0100 +++ new/Contextual-Return-0.004012/META.json 2017-04-12 17:06:12.000000000 +0200 @@ -39,5 +39,5 @@ } }, "release_status" : "stable", - "version" : "0.004010" + "version" : "0.004012" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Contextual-Return-0.004010/META.yml new/Contextual-Return-0.004012/META.yml --- old/Contextual-Return-0.004010/META.yml 2016-12-01 07:41:17.000000000 +0100 +++ new/Contextual-Return-0.004012/META.yml 2017-04-12 17:06:12.000000000 +0200 @@ -21,4 +21,4 @@ Test::More: '0' Want: '0' version: '0' -version: '0.004010' +version: '0.004012' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Contextual-Return-0.004010/README new/Contextual-Return-0.004012/README --- old/Contextual-Return-0.004010/README 2016-12-01 07:41:14.000000000 +0100 +++ new/Contextual-Return-0.004012/README 2017-04-12 17:06:09.000000000 +0200 @@ -1,4 +1,4 @@ -Contextual::Return version 0.004010 +Contextual::Return version 0.004012 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.004010/lib/Contextual/Return.pm new/Contextual-Return-0.004012/lib/Contextual/Return.pm --- old/Contextual-Return-0.004010/lib/Contextual/Return.pm 2016-12-01 07:41:14.000000000 +0100 +++ new/Contextual-Return-0.004012/lib/Contextual/Return.pm 2017-04-12 17:06:09.000000000 +0200 @@ -1,7 +1,7 @@ package Contextual::Return; use warnings; use strict; -our $VERSION = '0.004010'; +our $VERSION = '0.004012'; my %attrs_of; @@ -273,8 +273,8 @@ my ($block) = @_; # Determine call context and arg list... - my $context; - my $args = do { package DB; $context=(CORE::caller 1)[5]; \@DB::args }; + my $args = \@DB::args; + my $context = do { package DB; (CORE::caller 1)[5]; }; # No args -> return appropriate value... if (!@_) { @@ -314,7 +314,7 @@ *{$subname} = sub(&;@) :lvalue { # (handler, return_lvalue); my $handler = shift; my $impl; - my $args = do{ package DB; ()=CORE::caller(1); \@DB::args }; + my $args = \@DB::args; { package DB; ()=CORE::caller(1); }; 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 = do{ package DB; ()=CORE::caller(1); \@DB::args }; + my $args = \@DB::args; { package DB; ()=CORE::caller(1); }; 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 = do{ package DB; ()=CORE::caller(1); \@DB::args }; + my $args = \@DB::args; { package DB; ()=CORE::caller(1); }; 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 = do{ package DB; ()=CORE::caller(1); \@DB::args }; + my $args = \@DB::args; { package DB; ()=CORE::caller(1); }; 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 = do{ package DB; ()=CORE::caller(1); \@DB::args }; + my $args = \@DB::args; { package DB; ()=CORE::caller(1); }; 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.004010 +This document describes Contextual::Return version 0.004012 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Contextual-Return-0.004010/t/fail.t new/Contextual-Return-0.004012/t/fail.t --- old/Contextual-Return-0.004010/t/fail.t 2012-08-14 12:48:00.000000000 +0200 +++ new/Contextual-Return-0.004012/t/fail.t 2017-04-12 17:04:45.000000000 +0200 @@ -1,6 +1,7 @@ use Contextual::Return qw< FAIL FAIL_WITH >; -use Test::More 'no_plan'; +use Test::More; +plan tests => 19; sub eval_nok(&$$) { my ($block, $exception_pat, $message) = @_;