/[webpac2]/trunk/lib/WebPAC/Common.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Common.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 631 by dpavlin, Mon Jul 10 10:16:03 2006 UTC revision 632 by dpavlin, Wed Sep 6 17:51:07 2006 UTC
# Line 199  method Line 199  method
199    
200  =cut  =cut
201    
202    my $_logger_seen;
203    
204  sub _get_logger {  sub _get_logger {
205          my $self = shift;          my $self = shift;
206    
# Line 206  sub _get_logger { Line 208  sub _get_logger {
208          $self->{'_logger_'} ||= $self->_init_logger;          $self->{'_logger_'} ||= $self->_init_logger;
209    
210          my $log = get_logger( $name );          my $log = get_logger( $name );
211          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}));
212            $_logger_seen->{$name}++;
213          return $log;          return $log;
214  }  }
215    
# Line 242  B<This is different from normal Log4perl Line 245  B<This is different from normal Log4perl
245  also use method names, and not only classes (which are just few)  also use method names, and not only classes (which are just few)
246  to filter logging.  to filter logging.
247    
248    =cut
249    
250    1;
Legend:
Removed from v.631  
changed lines
  Added in v.632
  ViewVC Help
Powered by ViewVC 1.1.26