From: Tomas Doran <bobtfish@bobtfish.net>
Date: Fri, 24 Apr 2009 16:24:21 +0000 (+0000)
Subject: Fix bug when not using B::Hooks::OP::Check::StashChange
X-Git-Tag: 5.80003~35
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=4f03bb77eaf3b07fac86f455bf688c2b6f1d5273

Fix bug when not using B::Hooks::OP::Check::StashChange
---

diff --git a/Changes b/Changes
index f6f2360..595db57 100644
--- a/Changes
+++ b/Changes
@@ -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
diff --git a/lib/Catalyst/Engine/HTTP/Restarter.pm b/lib/Catalyst/Engine/HTTP/Restarter.pm
index c2db065..bae57b1 100644
--- a/lib/Catalyst/Engine/HTTP/Restarter.pm
+++ b/lib/Catalyst/Engine/HTTP/Restarter.pm
@@ -83,7 +83,10 @@ around run => sub {
 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