Don't push Catalyst/MyApp at @main::ISA
Christian Hansen [Fri, 17 Jun 2005 02:26:39 +0000 (02:26 +0000)]
lib/Catalyst.pm

index b3abcaf..a412efa 100644 (file)
@@ -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;
     }