[svk-commit] r2140 - branches/svk-logging/lib/SVK

[clkao at bestpractical.com]

Author: clkao
Date: Wed Nov 15 09:05:36 2006
New Revision: 2140

Modified:
   branches/svk-logging/lib/SVK/Logger.pm

Log:
transform caller for actual logger name.

Modified: branches/svk-logging/lib/SVK/Logger.pm
==============================================================================
--- branches/svk-logging/lib/SVK/Logger.pm	(original)
+++ branches/svk-logging/lib/SVK/Logger.pm	Wed Nov 15 09:05:36 2006
@@ -16,7 +16,8 @@
   # Find out which package we'll export into.
   my $caller = caller() . '';
 
-  my $logger = Log::Log4perl->get_logger(caller().'');
+  (my $name = $caller) =~ s/::/./g;
+  my $logger = Log::Log4perl->get_logger(lc($name));
   {
     # As long as we don't use a package variable, each module we export
     # into will get their own object. Also, this allows us to decide on