fix import inheritance bug.

[catagits/Catalyst-Runtime.git] / lib / Catalyst.pm

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index 243f473..7523068 100644 (file)
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -127,6 +127,8 @@ Returns a hashref containing your applications settings.
 sub import {
     my ( $class, @arguments ) = @_;
 
+    return unless $class eq 'Catalyst';
+
     my $caller = caller(0);
     
     # Prepare inheritance
@@ -135,7 +137,6 @@ sub import {
         no strict 'refs';
         push @{"$caller\::ISA"}, $class;
         
-        *{"$caller\::import"} = sub { 1 };
     }
 
     $caller->arguments( [ @arguments ] );
@@ -196,6 +197,15 @@ sub plugin {
 
 =back
 
+=head1 CASE SENSITIVITY
+
+By default Catalyst is not case sensitive, so C<MyApp::C::FOO::Bar> becomes
+C</foo/bar>.
+
+But you can activate case sensitivity with a config parameter.
+
+    MyApp->config->{case_sensitive} = 1;
+
 =head1 LIMITATIONS
 
 mod_perl2 support is considered experimental and may contain bugs.