From 57a2433dcdba7b7b92299eff0778f8a78bac2cb8 Mon Sep 17 00:00:00 2001
From: doy <doy@tozt.net>
Date: Wed, 26 Nov 2008 13:47:25 -0500
Subject: don't try to forward messages to nonexistant channels

---
 lib/Log/Dispatch/Channels.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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;
 }
-- 
cgit v1.2.3