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

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2008-12-24 14:36:00 +0000 (Wed, 24 Dec 2008)
New Revision: 8942

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/ClassData.pm
Log:
CMOP::Class->make_immutable expects a list of options, not a hashref.

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/ClassData.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/ClassData.pm	2008-12-24 14:30:25 UTC (rev 8941)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/ClassData.pm	2008-12-24 14:36:00 UTC (rev 8942)
@@ -60,7 +60,7 @@
   $meta->add_method($alias, $accessor);
   $meta->add_method($attribute, $accessor);
   if(defined $immutable_options){
-    $meta->make_immutable($immutable_options);
+    $meta->make_immutable(%{ $immutable_options });
   }
   $class->$attribute($_[2]) if(@_ > 2);
   return $accessor;