[Catalyst-commits] r11345 - in Catalyst-Runtime/5.80/trunk: . lib

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-09-10 00:13:56 +0000 (Thu, 10 Sep 2009)
New Revision: 11345

Modified:
   Catalyst-Runtime/5.80/trunk/Changes
   Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm
Log:
Fix warnings in upcoming moose

Modified: Catalyst-Runtime/5.80/trunk/Changes
===================================================================
--- Catalyst-Runtime/5.80/trunk/Changes	2009-09-09 21:06:59 UTC (rev 11344)
+++ Catalyst-Runtime/5.80/trunk/Changes	2009-09-10 00:13:56 UTC (rev 11345)
@@ -1,5 +1,13 @@
 # This file documents the revision history for Perl extension Catalyst.
 #
+
+    - Add allow_mutable_ancestors option when force inlining a constructor onto
+      applications with plugins defining their own (usually Class::Accessor::Fast)
+      new methods, to avoid warnings generated by upcoming Moose releases
+      as we can make a class (MyApp) immutable when not all of it's superclasses
+      (e.g. plugins not fully Moose converted, but using
+       MooseX::Emulate::Class::Accessor::Fast) are not immutable.
+
 5.80012 2009-09-09 19:09:09
 
   Bug fixes:

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm	2009-09-09 21:06:59 UTC (rev 11344)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm	2009-09-10 00:13:56 UTC (rev 11345)
@@ -1134,8 +1134,10 @@
                 . "Class::Accessor(::Fast)?\nPlease pass "
                 . "(replace_constructor => 1)\nwhen making your class immutable.\n";
         }
-        $meta->make_immutable(replace_constructor => 1)
-            unless $meta->is_immutable;
+        $meta->make_immutable(
+            replace_constructor => 1,
+            allow_mutable_ancestors => 1,
+        ) unless $meta->is_immutable;
     };
 
     $class->setup_finalize;