--- nfo/perl/libs/Class/Logger.pm	2003/12/16 19:22:26	1.1
+++ nfo/perl/libs/Class/Logger.pm	2003/12/16 19:27:32	1.2
@@ -1,8 +1,8 @@
 ## ------------------------------------------------------------------------
-##  $Id: Logger.pm,v 1.1 2003/12/16 19:22:26 ts-dev Exp $
+##  $Id: Logger.pm,v 1.2 2003/12/16 19:27:32 ts-dev Exp $
 ## ------------------------------------------------------------------------
 ##  $Log: Logger.pm,v $
-##  Revision 1.1  2003/12/16 19:22:26  ts-dev
+##  Revision 1.2  2003/12/16 19:27:32  ts-dev
 ##  first check-in
 ##
 ##
@@ -232,7 +232,7 @@
   
 	$self->{__logger}->{level} ||= $LEVEL_DEFAULT;
   $self->_configure_LogDispatch();
-	local :Dispatch::Config::CallerDepth = 3;
+	local ${Log::Dispatch::Config::CallerDepth} = 3;
   $self->{__logger}->{instance}->log( level => $self->{__logger}->{level}, message => $message );
 	#$self->__init('log', $message);
 	#$self->__out();
@@ -290,7 +290,7 @@
       # $logger->info( __PACKAGE__ . "->trace: '$caller' (mixed into '$classname'): ($options->{tag}) $message.");
       
       # V2:
-			#local :Dispatch::Config::CallerDepth = 3;
+			#local ${Log::Dispatch::Config::CallerDepth} = 3;
 	#$self->{__logger}->{instance}->log( level => $self->{__logger}->{level}, message => $message );
 	    $self->__init('trace', $message);
 	    $self->__out();
@@ -385,8 +385,8 @@
 		crit critical alert emerg emergency) ) {
 		*{$l} = sub {
 			my $self = shift;
-			local :Dispatch::Config::CallerDepth =
-				:Dispatch::Config::CallerDepth + 1;
+			local ${Log::Dispatch::Config::CallerDepth} =
+				${Log::Dispatch::Config::CallerDepth} + 1;
 			$self->log( "@_", $l );
 		};
 	}
@@ -398,10 +398,7 @@
 	my ($message, $level) = @_;
 	$level ||= 'debug';
 	my $logger = $self->_get_instance();
-	local $Log: Logger.pm,v $
-	local Revision 1.1  2003/12/16 19:22:26  ts-dev
-	local first check-in
-	localLog::Dispatch::Config::CallerDepth + 1;
+	local ${Log::Dispatch::Config::CallerDepth} = ${Log::Dispatch::Config::CallerDepth} + 1;
 	$logger->log( level => $level, message => $message );
 }
 
@@ -411,10 +408,7 @@
 	local $Data::Dumper::Indent = 1;
 	local $Data::Dumper::Sortkeys = 1;
 	my $dump = Dumper $data;
-	local $Log: Logger.pm,v $
-	local Revision 1.1  2003/12/16 19:22:26  ts-dev
-	local first check-in
-	localLog::Dispatch::Config::CallerDepth + 1;
+	local ${Log::Dispatch::Config::CallerDepth} = ${Log::Dispatch::Config::CallerDepth} + 1;
 	$self->log("DUMP: \n$dump", 'debug');
 }
 sub strace {
@@ -428,10 +422,7 @@
 		#$message .= qq#  ${subroutine} ($filename line $line)\n#;
 		$message .= qq#  ${subroutine} (line $line)\n#;
 	}
-	local $Log: Logger.pm,v $
-	local Revision 1.1  2003/12/16 19:22:26  ts-dev
-	local first check-in
-	localLog::Dispatch::Config::CallerDepth + 1;
+	local ${Log::Dispatch::Config::CallerDepth} = ${Log::Dispatch::Config::CallerDepth} + 1;
 	$self->log($message, 'debug');
 }