From: Christian Hansen <chansen@cpan.org>
Date: Fri, 17 Jun 2005 01:27:25 +0000 (+0000)
Subject: Don't warn if caller is main
X-Git-Tag: 5.7099_04~1311
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=aa6d250314e92cb95095d771defbbf0cada411e7;p=catagits%2FCatalyst-Runtime.git

Don't warn if caller is main
---

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index 55057e3..b3abcaf 100644
--- 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;
     }