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

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-05-06 00:38:34 +0000 (Wed, 06 May 2009)
New Revision: 10023

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm
Log:
Mad fix.

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm	2009-05-05 19:50:28 UTC (rev 10022)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm	2009-05-06 00:38:34 UTC (rev 10023)
@@ -1100,6 +1100,7 @@
     # modifiers work correctly in MyApp (as you have to call setup _before_
     # applying modifiers).
     Scope::Upper::reap(sub {
+        die $@ if $@; # This does not appear to do what you think it does.
         my $meta = Class::MOP::get_metaclass_by_name($class);
         if ( $meta->is_immutable && ! { $meta->immutable_options }->{inline_constructor} ) {
             die "You made your application class ($class) immutable, "