From: Christian Hansen <chansen@cpan.org>
Date: Fri, 17 Jun 2005 02:26:39 +0000 (+0000)
Subject: Don't push Catalyst/MyApp at @main::ISA
X-Git-Tag: 5.7099_04~1310
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=38cb5be33d7e884a6bc604f7e55ffa7a436475d1;p=catagits%2FCatalyst-Runtime.git

Don't push Catalyst/MyApp at @main::ISA
---

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index b3abcaf..a412efa 100644
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -125,20 +125,21 @@ Returns a hashref containing your applications settings.
 
 sub import {
     my ( $class, @arguments ) = @_;
+    
     my $caller = caller(0);
+    
+    if ( $caller eq 'main' ) {
+        return;
+    }
 
     # Prepare inheritance
     unless ( $caller->isa($class) ) {
         no strict 'refs';
         push @{"$caller\::ISA"}, $class;
     }
-
+    
     if ( $caller->engine ) {
-
-        unless ( $caller eq 'main' ) {
-            $caller->log->warn( qq/Attempt to re-initialize "$caller"/ );
-        }
-
+        $caller->log->warn( qq/Attempt to re-initialize "$caller"/ );
         return;
     }