From 08769e97b2344682a6ce856b2a69ea2e1bc34b37 Mon Sep 17 00:00:00 2001
From: Raymond Chandler <intralanman@freeswitch.org>
Date: Thu, 23 Dec 2010 18:01:21 -0500
Subject: [PATCH] couple small usability issues

---
 libs/esl/perl/ESL/Dispatch.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/libs/esl/perl/ESL/Dispatch.pm b/libs/esl/perl/ESL/Dispatch.pm
index 1d21934046..d1712d1cfc 100644
--- a/libs/esl/perl/ESL/Dispatch.pm
+++ b/libs/esl/perl/ESL/Dispatch.pm
@@ -40,7 +40,8 @@ sub set_callback($;$$) {
   $self->{_callback}->{$event} = shift;
   my $subclass = shift;
   if($subclass) {
-    $self->{_custom_subclass} = split(/,/, $subclass);
+    my @subclasses = split(/,/, $subclass);
+    $self->{_custom_subclass} = \@subclasses;
   }
 }
 
@@ -79,7 +80,7 @@ sub run($;) {
   for(;;) {
     # Only register for events we have callbacks for.
     for my $key ( keys %{$self->{_callback}} ) {
-      if ($key eq "CUSTOM") {
+      if ($key =~ m/custom/i) {
 	foreach $subclass (@{$self->{_custom_subclass}}) {
 	  $self->{_esl}->events("plain", "$key $subclass");
 	}