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) = @_;
