X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst.pm;h=2c6ca19cb7543f6e62ed35a5db42ecb7938d85f5;hp=243f473af98080c85e60b232b50728a2ea397324;hb=e63948476024f865b8e84967ffe71681e90f2a4c;hpb=10dd68969b311a61e17dd130373909f2c7aaeb93

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index 243f473..2c6ca19 100644
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -13,7 +13,7 @@ our $CATALYST_SCRIPT_GEN = 4;
 
 __PACKAGE__->mk_classdata($_) for qw/arguments dispatcher engine log/;
 
-our $VERSION = '5.24';
+our $VERSION = '5.31';
 our @ISA;
 
 =head1 NAME
@@ -126,16 +126,16 @@ Returns a hashref containing your applications settings.
 
 sub import {
     my ( $class, @arguments ) = @_;
+    
+    # We have to limit $class to Catalyst to avoid pushing Catalyst upon every
+    # callers @ISA.
+    return unless $class eq 'Catalyst';
 
     my $caller = caller(0);
-    
-    # Prepare inheritance
-    unless ( $caller->isa($class) ) {
-        
+
+    unless ( $caller->isa('Catalyst') ) {
         no strict 'refs';
         push @{"$caller\::ISA"}, $class;
-        
-        *{"$caller\::import"} = sub { 1 };
     }
 
     $caller->arguments( [ @arguments ] );
@@ -196,6 +196,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.