Bug #32942 for Log-Log4perl: Log::Log4perl

> Greetings, > > This message has been automatically generated in response to the > creation of a trouble ticket regarding: > "Log::Log4perl", > a summary of which appears below. > > There is no need to reply to this message right now. Your ticket has been > assigned an ID of [rt.cpan.org #32942]. Your ticket is accessible > on the web at: > > http://rt.cpan.org/Ticket/Display.html?id=32942 > > Please include the string: > > [rt.cpan.org #32942] > > in the subject line of all future correspondence about this issue. To do so, > you may reply to this message. > > Thank you, > bug-Log-Log4perl@rt.cpan.org > > ------------------------------------------------------------------------- > Log::Log4perl: 1.14 > perl: v5.8.8 > uname: Linux www1 2.6.17-2-686 #1 SMP Wed Sep 13 16:34:10 UTC 2006 i686 > GNU/Linux > > > i have a problem when i subclass the Log::Log4perl > > $other_class->get_logger($category) wont work for other classes then the > __PACKAGE__ > > > } elsif($class ne __PACKAGE__) { > # Called as ::get_logger($category) > > this is wrong > > $other_class->get_logger($category) result in $class ne __PACKAGE__ > > > this will fix that, but i dont know, perhaps other things will be broken > then: > } elsif($class ne __PACKAGE__ and !defined $args[0]) { > # Called as ::get_logger($category) > > > > ################################################## > sub get_logger { # Get an instance (shortcut) > ################################################## > my($class, @args) = @_; > > if(!defined $class) { > # Called as ::get_logger() > unshift(@args, scalar caller()); > } elsif($class eq __PACKAGE__ and !defined $args[0]) { > # Called as ->get_logger() > unshift(@args, scalar caller()); > > # FIXME > } elsif($class ne __PACKAGE__) { > # Called as ::get_logger($category) > # FIXME > > unshift(@args, $class); > } else { > # Called as ->get_logger($category) > } > > # Delegate this to the logger module > return Log::Log4perl::Logger->get_logger(@args); > } > > > > > >