Lots of madness

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index 53e06a9..73b36c8 100644 (file)
--- 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 (file)
--- 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/;