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 - [email protected]
+
+- 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;
