From: Brian West <brian@freeswitch.org>
Date: Thu, 16 Oct 2008 00:23:46 +0000 (+0000)
Subject: tweak FreeSWITCH::Client to not delete keys that are already lowercase ie. variables... 
X-Git-Tag: v1.0.2~787
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c87ae6141d78942475f55105d638b3d85fbb165f;p=thirdparty%2Ffreeswitch.git

tweak FreeSWITCH::Client to not delete keys that are already lowercase ie. variables in the events

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@10041 d0543943-73ff-0310-b7d9-9358b9ac24b2
---

diff --git a/scripts/socket/FreeSWITCH/Client.pm b/scripts/socket/FreeSWITCH/Client.pm
index d2c8a282a0..5244782425 100644
--- a/scripts/socket/FreeSWITCH/Client.pm
+++ b/scripts/socket/FreeSWITCH/Client.pm
@@ -195,8 +195,11 @@ sub extract_event($$) {
 
   foreach (keys %h) {
     my $new = lc $_;
-    $h{$new} = $h{$_};
-    delete $h{$_};
+    if (!($new eq $_)) {
+      # do not delete keys that were already lowercase
+      $h{$new} = $h{$_};
+      delete $h{$_};
+    }
   }
   foreach(keys %h) {
     htdecode(\$h{$_});