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
1 changed files with 5 additions and 2 deletions

View File

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