r32719 - in /trunk/libclass-accessor-grouped-perl: Changes MANIFEST META.yml debian/changelog debian/control lib/Class/Accessor/Grouped.pm t/inherited.t t/lib/ExtraInheritedGroups.pm

eloy at users.alioth.debian.org eloy at users.alioth.debian.org
Tue Apr 7 14:18:16 UTC 2009 

Author: eloy
Date: Tue Apr  7 14:18:11 2009
New Revision: 32719

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=32719
Log:
new upstream version

Added:
    trunk/libclass-accessor-grouped-perl/t/lib/ExtraInheritedGroups.pm
      - copied unchanged from r32718, branches/upstream/libclass-accessor-grouped-perl/current/t/lib/ExtraInheritedGroups.pm
Modified:
    trunk/libclass-accessor-grouped-perl/Changes
    trunk/libclass-accessor-grouped-perl/MANIFEST
    trunk/libclass-accessor-grouped-perl/META.yml
    trunk/libclass-accessor-grouped-perl/debian/changelog
    trunk/libclass-accessor-grouped-perl/debian/control
    trunk/libclass-accessor-grouped-perl/lib/Class/Accessor/Grouped.pm
    trunk/libclass-accessor-grouped-perl/t/inherited.t

Modified: trunk/libclass-accessor-grouped-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-accessor-grouped-perl/Changes?rev=32719&op=diff
==============================================================================
--- trunk/libclass-accessor-grouped-perl/Changes (original)
+++ trunk/libclass-accessor-grouped-perl/Changes Tue Apr  7 14:18:11 2009
@@ -1,4 +1,7 @@
 Revision history for Class::Accessor::Grouped.
+
+0.08003 Sat Mar 21 9:27:24 2009
+    - Fixed set_inherited under C3::Componentised: RT#43702, RIBASUSHI
 
 0.08002 Mon Nov 17 20:27:22 2008
     - Removed unnecessary code in get_simple: RT#40992, BUCHMULLER Norbert

Modified: trunk/libclass-accessor-grouped-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-accessor-grouped-perl/MANIFEST?rev=32719&op=diff
==============================================================================
--- trunk/libclass-accessor-grouped-perl/MANIFEST (original)
+++ trunk/libclass-accessor-grouped-perl/MANIFEST Tue Apr  7 14:18:11 2009
@@ -23,6 +23,7 @@
 t/lib/AccessorGroupsRO.pm
 t/lib/AccessorGroupsWO.pm
 t/lib/BaseInheritedGroups.pm
+t/lib/ExtraInheritedGroups.pm
 t/lib/NotHashBased.pm
 t/lib/NotReallyAClass.pm
 t/lib/SuperInheritedGroups.pm

Modified: trunk/libclass-accessor-grouped-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-accessor-grouped-perl/META.yml?rev=32719&op=diff
==============================================================================
--- trunk/libclass-accessor-grouped-perl/META.yml (original)
+++ trunk/libclass-accessor-grouped-perl/META.yml Tue Apr  7 14:18:11 2009
@@ -23,4 +23,4 @@
   perl: 5.6.1
 resources:
   license: http://dev.perl.org/licenses/
-version: 0.08002
+version: 0.08003

Modified: trunk/libclass-accessor-grouped-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-accessor-grouped-perl/debian/changelog?rev=32719&op=diff
==============================================================================
--- trunk/libclass-accessor-grouped-perl/debian/changelog (original)
+++ trunk/libclass-accessor-grouped-perl/debian/changelog Tue Apr  7 14:18:11 2009
@@ -1,3 +1,10 @@
+libclass-accessor-grouped-perl (0.08003-1) UNRELEASED; urgency=low
+
+  * New upstream release
+  * debian/control: Bump Standards-Version to 3.8.1 (no changes)
+
+ -- Krzysztof Krzyżaniak (eloy) <eloy at debian.org>  Tue, 07 Apr 2009 16:15:27 +0200
+
 libclass-accessor-grouped-perl (0.08002-1) unstable; urgency=low
 
   [ gregor herrmann ]

Modified: trunk/libclass-accessor-grouped-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-accessor-grouped-perl/debian/control?rev=32719&op=diff
==============================================================================
--- trunk/libclass-accessor-grouped-perl/debian/control (original)
+++ trunk/libclass-accessor-grouped-perl/debian/control Tue Apr  7 14:18:11 2009
@@ -5,9 +5,9 @@
 Build-Depends-Indep: perl (>= 5.8.8-7), libmro-compat-perl,
  libclass-inspector-perl, libtest-pod-coverage-perl, libtest-pod-perl
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Krzysztof Krzyzaniak (eloy) <eloy at debian.org>,
+Uploaders: Krzysztof Krzyżaniak (eloy) <eloy at debian.org>,
  Ansgar Burchardt <ansgar at 43-1.org>
-Standards-Version: 3.8.0
+Standards-Version: 3.8.1
 Homepage: http://search.cpan.org/dist/Class-Accessor-Grouped/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libclass-accessor-grouped-perl/
 Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libclass-accessor-grouped-perl/

Modified: trunk/libclass-accessor-grouped-perl/lib/Class/Accessor/Grouped.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-accessor-grouped-perl/lib/Class/Accessor/Grouped.pm?rev=32719&op=diff
==============================================================================
--- trunk/libclass-accessor-grouped-perl/lib/Class/Accessor/Grouped.pm (original)
+++ trunk/libclass-accessor-grouped-perl/lib/Class/Accessor/Grouped.pm Tue Apr  7 14:18:11 2009
@@ -6,7 +6,7 @@
 use Scalar::Util ();
 use MRO::Compat;
 
-our $VERSION = '0.08002';
+our $VERSION = '0.08003';
 
 =head1 NAME
 
@@ -301,10 +301,14 @@
     };
 
     no strict 'refs';
+    no warnings qw/uninitialized/;
     return ${$class.'::__cag_'.$_[1]} if defined(${$class.'::__cag_'.$_[1]});
 
-    if (!@{$class.'::__cag_supers'}) {
+    # we need to be smarter about recalculation, as @ISA (thus supers) can very well change in-flight
+    my $pkg_gen = mro::get_pkg_gen ($class);
+    if ( ${$class.'::__cag_pkg_gen'} != $pkg_gen ) {
         @{$class.'::__cag_supers'} = $_[0]->get_super_paths;
+        ${$class.'::__cag_pkg_gen'} = $pkg_gen;
     };
 
     foreach (@{$class.'::__cag_supers'}) {

Modified: trunk/libclass-accessor-grouped-perl/t/inherited.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-accessor-grouped-perl/t/inherited.t?rev=32719&op=diff
==============================================================================
--- trunk/libclass-accessor-grouped-perl/t/inherited.t (original)
+++ trunk/libclass-accessor-grouped-perl/t/inherited.t Tue Apr  7 14:18:11 2009
@@ -1,4 +1,4 @@
-use Test::More tests => 35;
+use Test::More tests => 36;
 use strict;
 use warnings;
 use lib 't/lib';
@@ -81,3 +81,14 @@
 is(SuperInheritedGroups->basefield, 'base');
 
 is(BaseInheritedGroups->undefined, undef);
+
+# make sure run-time @ISA changes trigger an inheritance chain recalculation
+SuperInheritedGroups->basefield(undef);
+BaseInheritedGroups->basefield('your base');
+
+# dirty hack, emulate Class::C3::Componentised
+require ExtraInheritedGroups;
+unshift @SuperInheritedGroups::ISA, qw/ExtraInheritedGroups/;
+
+# this comes from ExtraInheritedGroups
+is(SuperInheritedGroups->basefield, 'your extra base!');

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