Revision
16925
Author
brian
Date
2010-03-05 18:25:23 -0600 (Fri, 05 Mar 2010)

Log Message

 remove variable_ in headers just so its consistent

Modified Paths

Diff

Modified: freeswitch/trunk/libs/esl/perl/ESL/Dispatch.pm (16924 => 16925)


--- freeswitch/trunk/libs/esl/perl/ESL/Dispatch.pm	2010-03-06 00:20:29 UTC (rev 16924)
+++ freeswitch/trunk/libs/esl/perl/ESL/Dispatch.pm	2010-03-06 00:25:23 UTC (rev 16925)
@@ -53,6 +53,7 @@
     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();
   }