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

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-09-16 17:15:52 +0000 (Wed, 16 Sep 2009)
New Revision: 11370

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/ClassData.pm
Log:
Now we depend on latest Moose we are certain to have immutable options

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/ClassData.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/ClassData.pm	2009-09-16 17:14:29 UTC (rev 11369)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/ClassData.pm	2009-09-16 17:15:52 UTC (rev 11370)
@@ -49,8 +49,7 @@
     unless $meta->isa('Class::MOP::Class');
 
   my $was_immutable = $meta->is_immutable;
-  # Need to save immutable_options if they're available from Moose 0.89_02
-  my %immutable_options = $meta->can('immutable_options') ? $meta->immutable_options : ();
+  my %immutable_options = $meta->immutable_options;
 
   $meta->make_mutable if $was_immutable;