Hello community,
here is the log from the commit of package perl-Contextual-Return for
openSUSE:Factory checked in at 2012-05-31 17:08:07
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Contextual-Return (Old)
and /work/SRC/openSUSE:Factory/.perl-Contextual-Return.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Contextual-Return", Maintainer is ""
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Contextual-Return/perl-Contextual-Return.changes
2012-03-06 13:40:35.000000000 +0100
+++
/work/SRC/openSUSE:Factory/.perl-Contextual-Return.new/perl-Contextual-Return.changes
2012-05-31 17:08:14.000000000 +0200
@@ -1,0 +2,9 @@
+Wed May 30 11:27:02 UTC 2012 - [email protected]
+
+- updated to 0.004003
+ - Doc patch (thanks Fabrizio)
+
+ - Patched failures.t to account from bleadperl changes
+ (thanks Zefram!)
+
+-------------------------------------------------------------------
Old:
----
Contextual-Return-0.004002.tar.gz
New:
----
Contextual-Return-0.004003.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Contextual-Return.spec ++++++
--- /var/tmp/diff_new_pack.lyIHFU/_old 2012-05-31 17:08:15.000000000 +0200
+++ /var/tmp/diff_new_pack.lyIHFU/_new 2012-05-31 17:08:15.000000000 +0200
@@ -17,10 +17,10 @@
Name: perl-Contextual-Return
-Version: 0.004002
+Version: 0.004003
Release: 0
%define cpan_name Contextual-Return
-Summary: Create context-senstive return values
+Summary: Create context-sensitive return values
License: GPL-1.0+ or Artistic-1.0
Group: Development/Libraries/Perl
Url: http://search.cpan.org/dist/Contextual-Return/
++++++ Contextual-Return-0.004002.tar.gz -> Contextual-Return-0.004003.tar.gz
++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Contextual-Return-0.004002/Changes
new/Contextual-Return-0.004003/Changes
--- old/Contextual-Return-0.004002/Changes 2012-03-01 20:18:38.000000000
+0100
+++ new/Contextual-Return-0.004003/Changes 2012-04-11 08:55:49.000000000
+0200
@@ -107,3 +107,11 @@
- Fixed significant typo (Carp:carp -> Carp::carp)
(thanks everyone who reported it)
+
+
+0.004003 Wed Apr 11 07:55:49 2012
+
+ - Doc patch (thanks Fabrizio)
+
+ - Patched failures.t to account from bleadperl changes
+ (thanks Zefram!)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Contextual-Return-0.004002/META.json
new/Contextual-Return-0.004003/META.json
--- old/Contextual-Return-0.004002/META.json 2012-03-01 20:18:39.000000000
+0100
+++ new/Contextual-Return-0.004003/META.json 2012-04-11 08:55:51.000000000
+0200
@@ -1,5 +1,5 @@
{
- "abstract" : "Create context-senstive return values",
+ "abstract" : "Create context-sensitive return values",
"author" : [
"Damian Conway <[email protected]>"
],
@@ -39,5 +39,5 @@
}
},
"release_status" : "stable",
- "version" : "0.004002"
+ "version" : "0.004003"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Contextual-Return-0.004002/META.yml
new/Contextual-Return-0.004003/META.yml
--- old/Contextual-Return-0.004002/META.yml 2012-03-01 20:18:39.000000000
+0100
+++ new/Contextual-Return-0.004003/META.yml 2012-04-11 08:55:51.000000000
+0200
@@ -1,5 +1,5 @@
---
-abstract: 'Create context-senstive return values'
+abstract: 'Create context-sensitive return values'
author:
- 'Damian Conway <[email protected]>'
build_requires:
@@ -21,4 +21,4 @@
Test::More: 0
Want: 0
version: 0
-version: 0.004002
+version: 0.004003
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Contextual-Return-0.004002/README
new/Contextual-Return-0.004003/README
--- old/Contextual-Return-0.004002/README 2012-03-01 20:18:38.000000000
+0100
+++ new/Contextual-Return-0.004003/README 2012-04-11 08:55:49.000000000
+0200
@@ -1,4 +1,4 @@
-Contextual::Return version 0.004002
+Contextual::Return version 0.004003
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.004002/lib/Contextual/Return.pm
new/Contextual-Return-0.004003/lib/Contextual/Return.pm
--- old/Contextual-Return-0.004002/lib/Contextual/Return.pm 2012-03-01
20:18:38.000000000 +0100
+++ new/Contextual-Return-0.004003/lib/Contextual/Return.pm 2012-04-11
08:55:49.000000000 +0200
@@ -35,7 +35,7 @@
}
-our $VERSION = '0.004002';
+our $VERSION = '0.004003';
use warnings;
use strict;
@@ -1168,7 +1168,7 @@
}
if ($attrs->{STRICT}) {
- $@ = _in_context "$attrs->{sub} can't return a scalar
reference";
+ $@ = _in_context "Call to $attrs->{sub} didn't return a scalar
reference, as required <LOC>";
if (my $recover = $attrs->{RECOVER}) {
scalar $recover->(@{$attrs->{args}});
}
@@ -1256,7 +1256,7 @@
}
if ($attrs->{STRICT}) {
- $@ = _in_context "$attrs->{sub} can't return an array
reference";
+ $@ = _in_context "Call to $attrs->{sub} didn't return an array
reference, as required <LOC>";
if (my $recover = $attrs->{RECOVER}) {
scalar $recover->(@{$attrs->{args}});
}
@@ -1308,7 +1308,7 @@
}
return $rv;
}
- $@ = _in_context "$attrs->{sub} can't return a hash reference";
+ $@ = _in_context "Call to $attrs->{sub} didn't return a hash
reference, as required <LOC>";
if (my $recover = $attrs->{RECOVER}) {
scalar $recover->(@{$attrs->{args}});
}
@@ -1357,7 +1357,7 @@
}
return $rv;
}
- $@ = _in_context "$attrs->{sub} can't return a subroutine
reference";
+ $@ = _in_context "Call to $attrs->{sub} didn't return a subroutine
reference, as required <LOC>";
if (my $recover = $attrs->{RECOVER}) {
scalar $recover->(@{$attrs->{args}});
}
@@ -1406,7 +1406,7 @@
}
return $rv;
}
- $@ = _in_context "$attrs->{sub} can't return a typeglob reference";
+ $@ = _in_context "Call to $attrs->{sub} didn't return a typeglob
reference, as required <LOC>";
if (my $recover = $attrs->{RECOVER}) {
scalar $recover->(@{$attrs->{args}});
}
@@ -1621,12 +1621,12 @@
=head1 NAME
-Contextual::Return - Create context-senstive return values
+Contextual::Return - Create context-sensitive return values
=head1 VERSION
-This document describes Contextual::Return version 0.004002
+This document describes Contextual::Return version 0.004003
=head1 SYNOPSIS
@@ -3473,7 +3473,7 @@
(that is: C<VOID()> or C<LIST()>).
-=item C<%s can't return a %s reference">
+=item C<Call to %s at %s didn't return a %s reference">
You called the subroutine in a context that expected to get back a
reference of some kind but the subroutine didn't specify the
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Contextual-Return-0.004002/t/STRICT.t
new/Contextual-Return-0.004003/t/STRICT.t
--- old/Contextual-Return-0.004002/t/STRICT.t 2012-02-16 03:41:26.000000000
+0100
+++ new/Contextual-Return-0.004003/t/STRICT.t 2012-04-11 08:55:32.000000000
+0200
@@ -33,10 +33,10 @@
like $@, qr{Can't call main::foo in a void context} => '...with correct
error msg';
ok !eval { my $scalar = ${::foo()}; 1 } => 'No SCALARREF
context';
-like $@, qr{main::foo can't return a scalar reference} => '...with correct
error msg';
+like $@, qr{Call to main::foo didn't return a scalar reference, as required}
=> '...with correct error msg';
ok !eval { my @list = @{::foo()}; 1 } => 'No
ARRAYREF context';
-like $@, qr{main::foo can't return an array reference} => '...with correct
error msg';
+like $@, qr{Call to main::foo didn't return an array reference, as required}
=> '...with correct error msg';
ok !eval { my %hash = %{::foo()}; 1 } => 'No
HASHREF context';
-like $@, qr{main::foo can't return a hash reference} => '...with correct
error msg';
+like $@, qr{Call to main::foo didn't return a hash reference, as required}
=> '...with correct error msg';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Contextual-Return-0.004002/t/failures.t
new/Contextual-Return-0.004003/t/failures.t
--- old/Contextual-Return-0.004002/t/failures.t 2012-02-12 00:42:19.000000000
+0100
+++ new/Contextual-Return-0.004003/t/failures.t 2012-03-27 00:09:37.000000000
+0200
@@ -16,8 +16,8 @@
my ($msg, $line) = @_;
return sub {
# diag( "Caught warning: '@_'" );
- ok $_[0] =~ $msg => "Warn msg correct at line $line";
- ok $_[0] =~ /line $line\Z/ => "Line number correct at line $line";
+ ok $_[0] =~ $msg => "Warn msg correct at line $line";
+ ok $_[0] =~ /line $line\.?\Z/ => "Line number correct at line $line";
}
}
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
