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

scripts/socket/FreeSWITCH/Client.pm

@@ -195,9 +195,12 @@ sub extract_event($$) {
 
   foreach (keys %h) {
     my $new = lc $_;
+    if (!($new eq $_)) {
+      # do not delete keys that were already lowercase
       $h{$new} = $h{$_};
       delete $h{$_};
     }
+  }
   foreach(keys %h) {
     htdecode(\$h{$_});
   }