[Catalyst-commits] r9825 - in Catalyst-Runtime/5.80/trunk: . lib/Catalyst/Engine/HTTP

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-04-24 17:24:21 +0100 (Fri, 24 Apr 2009)
New Revision: 9825

Modified:
   Catalyst-Runtime/5.80/trunk/Changes
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine/HTTP/Restarter.pm
Log:
Fix bug when not using B::Hooks::OP::Check::StashChange


Modified: Catalyst-Runtime/5.80/trunk/Changes
===================================================================
--- Catalyst-Runtime/5.80/trunk/Changes	2009-04-24 13:32:58 UTC (rev 9824)
+++ Catalyst-Runtime/5.80/trunk/Changes	2009-04-24 16:24:21 UTC (rev 9825)
@@ -1,5 +1,7 @@
 # This file documents the revision history for Perl extension Catalyst.
 
+        - Fix classes without metaclasses restarting, when not using
+          B::Hooks::OP::Check::StashChange (t0m)
         - Fix the unattached chain debug table for endpoints with no
           parents at all. (rafl)
         - Turn of test aggregation by default. Only aggregate if the

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine/HTTP/Restarter.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine/HTTP/Restarter.pm	2009-04-24 13:32:58 UTC (rev 9824)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine/HTTP/Restarter.pm	2009-04-24 16:24:21 UTC (rev 9825)
@@ -83,7 +83,10 @@
 sub _make_components_mutable {
     my ($self, $class) = @_;
 
-    my @metas = map { find_meta($_) } ($class, map { blessed($_) } values %{ $class->components });
+    my @metas = grep { defined($_) }
+                map { find_meta($_) }
+                ($class, map { blessed($_) }
+                values %{ $class->components });
 
     foreach my $meta (@metas) {
         # Paranoia unneeded, all component metaclasses should have immutable