--- trunk/lib/WebPAC/Common.pm	2006/09/06 17:51:07	632
+++ trunk/lib/WebPAC/Common.pm	2006/09/06 18:08:04	633
@@ -15,11 +15,11 @@
 
 =head1 VERSION
 
-Version 0.02
+Version 0.03
 
 =cut
 
-our $VERSION = '0.02';
+our $VERSION = '0.03';
 
 =head1 SYNOPSYS
 
@@ -204,11 +204,21 @@
 sub _get_logger {
 	my $self = shift;
 
-	my $name = (caller(2))[3] || caller;
+	my $name = (caller(1))[3] || caller;
+
+	# make name full
+	my $f = '';
+	if ($log_debug) {
+		foreach ( 0 .. 5 ) {
+			my $s = (caller($_))[3];
+			$f .= "#### $_ >> $s\n" if ($s);
+		}
+	}
+
 	$self->{'_logger_'} ||= $self->_init_logger;
 
 	my $log = get_logger( $name );
-	warn "# get_logger( $name ) level ", $log->level, "\n" if ($log_debug || !defined($_logger_seen->{$name}));
+	warn "# get_logger( $name ) level ", $log->level, "\n$f" if ($log_debug && !defined($_logger_seen->{$name}));
 	$_logger_seen->{$name}++;
 	return $log;
 }