commit perl-Contextual-Return for openSUSE:Factory

31 May 2012

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 - coolo@suse.com
+
+- 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 <DCONWAY@cpan.org>"
    ],
@@ -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 <DCONWAY@cpan.org>'
 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: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org

    

root＠hilbert.suse.de

tags

participants (1)