[Catalyst-commits] r13900 - Catalyst-Runtime/5.80/trunk/lib/Catalyst

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2011-01-03 20:20:52 +0000 (Mon, 03 Jan 2011)
New Revision: 13900

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/Component.pm
Log:
Work with PP Package::Stash again now the incorrect assumption that broke with ::XS is fixed

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/Component.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/Component.pm	2011-01-03 19:59:37 UTC (rev 13899)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/Component.pm	2011-01-03 20:20:52 UTC (rev 13900)
@@ -127,7 +127,7 @@
         # TODO maybe this should be a ClassData option?
         my $class = blessed($self) || $self;
         my $meta = Class::MOP::get_metaclass_by_name($class);
-        unless (${ $meta->get_package_symbol('$_config') }) {
+        unless (${ $meta->get_or_add_package_symbol('$_config') }) {
             # Call merge_hashes to ensure we deep copy the parent
             # config onto the subclass
             $self->_config( Catalyst::Utils::merge_hashes($config, {}) );