Don't warn if caller is main

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

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index 55057e3..b3abcaf 100644 (file)
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -134,7 +134,11 @@ sub import {
     }
 
     if ( $caller->engine ) {
-        $caller->log->warn( qq/Attempt to re-initialize "$caller"/ );
+
+        unless ( $caller eq 'main' ) {
+            $caller->log->warn( qq/Attempt to re-initialize "$caller"/ );
+        }
+
         return;
     }