summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/Log/Dispatch/Channels.pm7
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;
}