Preston_PLB/freeswitch
1
0
Fork 0
forked from Mirrors/freeswitch
Code Pull Requests Activity

fix

Browse Source 
git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@8293 d0543943-73ff-0310-b7d9-9358b9ac24b2
This commit is contained in:
Anthony Minessale 2008-05-07 15:28:07 +00:00
parent 4401b252e5
commit 79433a61f8
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/mod/languages/mod_perl/mod_perl.c
View File

@ -423,10 +423,14 @@ static switch_xml_t perl_fetch(const char *section,
);
Perl_safe_eval(my_perl, code);
perl_run(my_perl);
str = SvPV(get_sv("XML_STRING", FALSE), n_a);
if (params) {
mod_perl_conjure_event(my_perl, params, "params");
}
if (str) {
perl_run(my_perl);
str = SvPV(get_sv("XML_STRING", TRUE), n_a);
if (!switch_strlen_zero(str)) {
if (switch_strlen_zero(str)) {
switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "No Result\n");
} else if (!(xml = switch_xml_parse_str(str, strlen(str)))) {