diff options
author | doy <doy@tozt.net> | 2008-11-26 13:47:25 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2008-11-26 13:47:25 -0500 |
commit | 57a2433dcdba7b7b92299eff0778f8a78bac2cb8 (patch) | |
tree | 45a19c9d5541bda58158e5fc9b5bbb29f74f230a | |
parent | 4b47a0bd8ce0a76922f681a29878bd90341115b9 (diff) | |
download | log-dispatch-channels-57a2433dcdba7b7b92299eff0778f8a78bac2cb8.tar.gz log-dispatch-channels-57a2433dcdba7b7b92299eff0778f8a78bac2cb8.zip |
don't try to forward messages to nonexistant channels
-rw-r--r-- | lib/Log/Dispatch/Channels.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/Log/Dispatch/Channels.pm b/lib/Log/Dispatch/Channels.pm index 2021710..aeb52b1 100644 --- a/lib/Log/Dispatch/Channels.pm +++ b/lib/Log/Dispatch/Channels.pm @@ -41,7 +41,12 @@ sub _forward_to_channels { # just wants a boolean my $ret = 0; for my $channel (@channels) { - $ret ||= $self->{channels}{$channel}->$method(@_); + if (exists $self->{channels}{$channel}) { + $ret ||= $self->{channels}{$channel}->$method(@_); + } + else { + carp "Channel $channel doesn't exist"; + } } return $ret; } |