From: Christian Hansen <chansen@cpan.org>
Date: Tue, 28 Jun 2005 15:02:47 +0000 (+0000)
Subject: Added comment in Catalyst::Import()
X-Git-Tag: 5.7099_04~1277
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=953b0e151e2f4dea96d1eb8201d793f3ae87cd26

Added comment in Catalyst::Import()
---

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index 7523068..0e89743 100644
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -126,17 +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->arguments( [ @arguments ] );