--- trunk/lib/WebPAC/Common.pm	2006/07/10 10:16:03	594
+++ trunk/lib/WebPAC/Common.pm	2006/09/06 17:51:07	632
@@ -199,6 +199,8 @@
 
 =cut
 
+my $_logger_seen;
+
 sub _get_logger {
 	my $self = shift;
 
@@ -206,7 +208,8 @@
 	$self->{'_logger_'} ||= $self->_init_logger;
 
 	my $log = get_logger( $name );
-	warn "# get_logger( $name ) level ", $log->level, "\n" if ($log_debug);
+	warn "# get_logger( $name ) level ", $log->level, "\n" if ($log_debug || !defined($_logger_seen->{$name}));
+	$_logger_seen->{$name}++;
 	return $log;
 }
 
@@ -242,4 +245,6 @@
 also use method names, and not only classes (which are just few)
 to filter logging.
 
+=cut
 
+1;