r35983 - in /branches/upstream/libclass-c3-adopt-next-perl/current: Changes MANIFEST META.yml README lib/Class/C3/Adopt/NEXT.pm t/basic.t t/warning_package.t

eloy at users.alioth.debian.org eloy at users.alioth.debian.org
Wed May 20 08:57:14 UTC 2009


Author: eloy
Date: Wed May 20 08:57:09 2009
New Revision: 35983

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=35983
Log:
[svn-upgrade] Integrating new upstream version, libclass-c3-adopt-next-perl (0.11)

Removed:
    branches/upstream/libclass-c3-adopt-next-perl/current/README
Modified:
    branches/upstream/libclass-c3-adopt-next-perl/current/Changes
    branches/upstream/libclass-c3-adopt-next-perl/current/MANIFEST
    branches/upstream/libclass-c3-adopt-next-perl/current/META.yml
    branches/upstream/libclass-c3-adopt-next-perl/current/lib/Class/C3/Adopt/NEXT.pm
    branches/upstream/libclass-c3-adopt-next-perl/current/t/basic.t
    branches/upstream/libclass-c3-adopt-next-perl/current/t/warning_package.t

Modified: branches/upstream/libclass-c3-adopt-next-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-c3-adopt-next-perl/current/Changes?rev=35983&op=diff
==============================================================================
--- branches/upstream/libclass-c3-adopt-next-perl/current/Changes (original)
+++ branches/upstream/libclass-c3-adopt-next-perl/current/Changes Wed May 20 08:57:09 2009
@@ -1,3 +1,6 @@
+0.11  Tue, 19 May 2009 18:34:17 +0100
+  * Change wording of warning to be more clear.
+
 0.10  Tue, 12 May 2009 13:23:52 +0200
   * Depend on Test::Exception 0.27 to avoid breaking tests on older versions
     (Closes: RT#45986).

Modified: branches/upstream/libclass-c3-adopt-next-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-c3-adopt-next-perl/current/MANIFEST?rev=35983&op=diff
==============================================================================
--- branches/upstream/libclass-c3-adopt-next-perl/current/MANIFEST (original)
+++ branches/upstream/libclass-c3-adopt-next-perl/current/MANIFEST Wed May 20 08:57:09 2009
@@ -12,7 +12,6 @@
 Makefile.PL
 MANIFEST			This list of files
 META.yml
-README
 t/basic.t
 t/disable.t
 t/disable_regex.t

Modified: branches/upstream/libclass-c3-adopt-next-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-c3-adopt-next-perl/current/META.yml?rev=35983&op=diff
==============================================================================
--- branches/upstream/libclass-c3-adopt-next-perl/current/META.yml (original)
+++ branches/upstream/libclass-c3-adopt-next-perl/current/META.yml Wed May 20 08:57:09 2009
@@ -25,4 +25,4 @@
   NEXT: 0
 resources:
   license: http://dev.perl.org/licenses/
-version: 0.10
+version: 0.11

Modified: branches/upstream/libclass-c3-adopt-next-perl/current/lib/Class/C3/Adopt/NEXT.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-c3-adopt-next-perl/current/lib/Class/C3/Adopt/NEXT.pm?rev=35983&op=diff
==============================================================================
--- branches/upstream/libclass-c3-adopt-next-perl/current/lib/Class/C3/Adopt/NEXT.pm (original)
+++ branches/upstream/libclass-c3-adopt-next-perl/current/lib/Class/C3/Adopt/NEXT.pm Wed May 20 08:57:09 2009
@@ -8,7 +8,7 @@
 use List::MoreUtils qw/none/;
 use warnings::register;
 
-our $VERSION = '0.10';
+our $VERSION = '0.11';
 
 {
     my %c3_mro_ok;
@@ -43,8 +43,8 @@
                 unless ($warned_for{$caller}) {
                     $warned_for{$caller} = 1;
                     if (!@no_warn_regexes || none { $caller =~ $_ } @no_warn_regexes) {
-                        warnings::warnif("${caller} is trying to use NEXT, which is deprecated. "
-                            . "Please see the Class::C3::Adopt::NEXT documentation for details");
+                        warnings::warnif("${caller} uses NEXT, which is deprecated. Please see "
+                            . "the Class::C3::Adopt::NEXT documentation for details. NEXT used ");
                     }
                 }
             }

Modified: branches/upstream/libclass-c3-adopt-next-perl/current/t/basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-c3-adopt-next-perl/current/t/basic.t?rev=35983&op=diff
==============================================================================
--- branches/upstream/libclass-c3-adopt-next-perl/current/t/basic.t (original)
+++ branches/upstream/libclass-c3-adopt-next-perl/current/t/basic.t Wed May 20 08:57:09 2009
@@ -19,7 +19,7 @@
 is(scalar @warnings, 0, 'no warnings yet');
 
 is($quux_obj->basic, 42, 'Basic inherited method returns correct value');
-like($warnings[0], qr/C3NT::Quux is trying to use NEXT/, 'warning for the first time NEXT is used');
+like($warnings[0], qr/C3NT::Quux uses NEXT/, 'warning for the first time NEXT is used');
 
 is($quux_obj->basic, 42, 'Basic inherited method returns correct value');
 is(scalar @warnings, 3, 'warn only once per class');

Modified: branches/upstream/libclass-c3-adopt-next-perl/current/t/warning_package.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-c3-adopt-next-perl/current/t/warning_package.t?rev=35983&op=diff
==============================================================================
--- branches/upstream/libclass-c3-adopt-next-perl/current/t/warning_package.t (original)
+++ branches/upstream/libclass-c3-adopt-next-perl/current/t/warning_package.t Wed May 20 08:57:09 2009
@@ -17,6 +17,6 @@
 my $child = C3NT::Child->new;
 @warnings = ();
 $child->basic;
-like($warnings[0], qr/C3NT::Quux is trying to use NEXT/, 'warning for the class NEXT is used by');
-like($warnings[1], qr/C3NT::Bar is trying to use NEXT/,  'warning for the class NEXT is used by');
-like($warnings[2], qr/C3NT::Baz is trying to use NEXT/,  'warning for the class NEXT is used by');
+like($warnings[0], qr/C3NT::Quux uses NEXT/, 'warning for the class NEXT is used by');
+like($warnings[1], qr/C3NT::Bar uses NEXT/,  'warning for the class NEXT is used by');
+like($warnings[2], qr/C3NT::Baz uses NEXT/,  'warning for the class NEXT is used by');




More information about the Pkg-perl-cvs-commits mailing list