From a7bf86df9f948ebfae4ea55770683a8051095ffb Mon Sep 17 00:00:00 2001
From: Brian West <brian@freeswitch.org>
Date: Sat, 6 Mar 2010 00:25:23 +0000
Subject: [PATCH]  remove variable_ in headers just so its consistent

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@16925 d0543943-73ff-0310-b7d9-9358b9ac24b2
---
 libs/esl/perl/ESL/Dispatch.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/libs/esl/perl/ESL/Dispatch.pm b/libs/esl/perl/ESL/Dispatch.pm
index c836457708..54ea1e0cb7 100644
--- a/libs/esl/perl/ESL/Dispatch.pm
+++ b/libs/esl/perl/ESL/Dispatch.pm
@@ -53,6 +53,7 @@ sub render_event($;$$) {
     if ($self->{_decode}) {
       $val =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg;
     }
+    $h =~ s/^variable_//;
     $self->{event_hash}->{lc($h)} = $val;
     $h = $event->nextHeader();
   }