From: Tomas Doran <bobtfish@bobtfish.net>
Date: Mon, 18 Jul 2011 14:58:09 +0000 (+0100)
Subject: Lots of madness
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=refs%2Fheads%2Fgsoc_breadboard_plugin_errors

Lots of madness
---

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index 53e06a9..73b36c8 100644
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -740,7 +740,7 @@ sub component {
     # I'm keeping it temporarily for things like $c->comp('MyApp')
     #return $c->components->{$component}
     #    if exists $c->components->{$component} and !@args;
-
+    Carp::cluck("MOO") if $component eq "PluginTestApp";
     $c->log->warn("Looking for '$component', but nothing was found.");
 
     # I would expect to return an empty list here, but that breaks back-compat
diff --git a/t/aggregate/unit_core_plugin.t b/t/aggregate/unit_core_plugin.t
index 16a5e24..301df7c 100644
--- a/t/aggregate/unit_core_plugin.t
+++ b/t/aggregate/unit_core_plugin.t
@@ -32,7 +32,7 @@ my $logger = Class::MOP::Class->create_anon_class(
         },
     },
 )->new_object;
-PluginTestApp->log($logger);
+#PluginTestApp->log($logger);
 
 use Catalyst::Test qw/PluginTestApp/;