[Freeswitch-svn] [commit] r10041 - freeswitch/trunk/scripts/socket/FreeSWITCH

[Freeswitch SVN]

Author: brian
Date: Wed Oct 15 20:23:46 2008
New Revision: 10041

Modified:
   freeswitch/trunk/scripts/socket/FreeSWITCH/Client.pm

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

Modified: freeswitch/trunk/scripts/socket/FreeSWITCH/Client.pm
==============================================================================
--- freeswitch/trunk/scripts/socket/FreeSWITCH/Client.pm	(original)
+++ freeswitch/trunk/scripts/socket/FreeSWITCH/Client.pm	Wed Oct 15 20:23:46 2008
@@ -195,8 +195,11 @@
 
   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{$_});