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
This commit is contained in:
Brian West 2008-10-16 00:23:46 +00:00
parent 41812748fb
commit c87ae6141d

View File

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