* Jan Henning Thorsen via RT (bug-Log-Report@rt.cpan.org) [100528 18:36]:
Show quoted text> Queue: Log-Report
> Ticket <URL:
https://rt.cpan.org/Ticket/Display.html?id=57955 >
>
> It's in an END {} block, so there must be something wrong with the
> initializing of reporters I think. I'm using some custom
> Log::Report::Dispatcher -- could that be it? Anyway. Something is
> clearly figuring out that the values/a value in
> $reporter->{dispatchers} is undef too late.
What kind of "custom dispatcher" did you need (I thought I had all
options covered). Can you share it?
I do not anticipate on dispatchers which fail to initialize without
throwing an exception. You're right about that. Although I would not
advice that, I may happen, so I will change this:
sub dispatcher($@)
{ if($_[0] !~ m/^(?:close|find|list|disable|enable|mode|needs|filter)$/)
{ my ($type, $name) = (shift, shift);
my $disp = Log::Report::Dispatcher->new($type, $name
- , mode => $default_mode, @_);
+ , mode => $default_mode, @_)
+ or return;
# old dispatcher with same name will be closed in DESTROY
$reporter->{dispatchers}{$name} = $disp;
_whats_needed;
return ($disp);
}
--
Regards,
MarkOv
------------------------------------------------------------------------
Mark Overmeer MSc MARKOV Solutions
Mark@Overmeer.net solutions@overmeer.net
http://Mark.Overmeer.net http://solutions.overmeer.net