$caller
Christian Hansen [Tue, 22 Mar 2005 20:01:26 +0000 (20:01 +0000)]
lib/Catalyst.pm

index 8db075a..d671fc2 100644 (file)
@@ -152,8 +152,8 @@ sub import {
         }
     }
 
-    unless ( $self->log ) {
-        $self->log( Catalyst::Log->new );
+    unless ( $caller->log ) {
+        $caller->log( Catalyst::Log->new );
     }
 
     # Options