X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FHelper.pm;h=9bbf398f2751408d86d9759897b9e90c91bc3d00;hp=dc30f1ddd19afd6db433f553a1ffd9e36207dc0a;hb=092231348d266d93d94db73b47b6d9594e5c233e;hpb=b2d40c03a584dac092c64ebc632397264fc57dc7

diff --git a/lib/Catalyst/Helper.pm b/lib/Catalyst/Helper.pm
index dc30f1d..9bbf398 100644
--- a/lib/Catalyst/Helper.pm
+++ b/lib/Catalyst/Helper.pm
@@ -136,9 +136,8 @@ sub mk_component {
         $type              = 'C' if $type =~ /controller/i;
         my $appdir = File::Spec->catdir( split /\:\:/, $app );
         my $test_path =
-          File::Spec->catdir( $FindBin::Bin, '..', 'lib', $appdir,
-            'Controller' );
-        $type = $self->{long_type} if -d $test_path;
+          File::Spec->catdir( $FindBin::Bin, '..', 'lib', $appdir, 'C' );
+        $type = $self->{long_type} unless -d $test_path;
         $self->{type}  = $type;
         $self->{name}  = $name;
         $self->{class} = "$app\::$type\::$name";