[Catalyst-commits] r7907 - Catalyst-Runtime/5.80/branches/moose/lib/Catalyst

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2008-06-10 17:24:55 +0100 (Tue, 10 Jun 2008)
New Revision: 7907

Modified:
   Catalyst-Runtime/5.80/branches/moose/lib/Catalyst/ClassData.pm
Log:
switch from add_package_symbol for the sake of immutable

Modified: Catalyst-Runtime/5.80/branches/moose/lib/Catalyst/ClassData.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/moose/lib/Catalyst/ClassData.pm	2008-06-09 22:37:44 UTC (rev 7906)
+++ Catalyst-Runtime/5.80/branches/moose/lib/Catalyst/ClassData.pm	2008-06-10 16:24:55 UTC (rev 7907)
@@ -13,7 +13,7 @@
   my $accessor =  sub {
     my $meta = $_[0]->meta;
     if(@_ > 1){
-      $meta->add_package_symbol($slot, \ $_[1]);
+      $meta->namespace->{$attribute} = \$_[1];
       return $_[1];
     }