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

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-09-11 08:18:09 +0000 (Fri, 11 Sep 2009)
New Revision: 11353

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/ClassData.pm
Log:
Work with old and new Moose

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/ClassData.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/ClassData.pm	2009-09-11 02:48:29 UTC (rev 11352)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/ClassData.pm	2009-09-11 08:18:09 UTC (rev 11353)
@@ -49,7 +49,8 @@
     unless $meta->isa('Class::MOP::Class');
 
   my $was_immutable = $meta->is_immutable;
-  my %immutable_options = $meta->immutable_options;
+  # Need to save immutable_options if they're available from Moose 0.89_02
+  my %immutable_options = $meta->can('immutable_options') ? $meta->immutable_options : ();
 
   $meta->make_mutable if $was_immutable;