From 8ce6198bf9dc2c1bcfe3bb6f5f3e89ff523f500a Mon Sep 17 00:00:00 2001
From: Brian West <brian@freeswitch.org>
Date: Thu, 17 Apr 2014 20:19:39 -0500
Subject: [PATCH] fix bug in dispatch

---
 libs/esl/perl/ESL/Dispatch.pm | 1 -
 1 file changed, 1 deletion(-)

diff --git a/libs/esl/perl/ESL/Dispatch.pm b/libs/esl/perl/ESL/Dispatch.pm
index d1712d1cfc..388283fb1d 100644
--- a/libs/esl/perl/ESL/Dispatch.pm
+++ b/libs/esl/perl/ESL/Dispatch.pm
@@ -58,7 +58,6 @@ 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();
   }