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{$_});