Author: anthm Date: Wed May 7 11:28:07 2008 New Revision: 8293 Modified: freeswitch/trunk/src/mod/languages/mod_perl/mod_perl.c Log: fix Modified: freeswitch/trunk/src/mod/languages/mod_perl/mod_perl.c ============================================================================== --- freeswitch/trunk/src/mod/languages/mod_perl/mod_perl.c (original) +++ freeswitch/trunk/src/mod/languages/mod_perl/mod_perl.c Wed May 7 11:28:07 2008 @@ -423,10 +423,14 @@ ); Perl_safe_eval(my_perl, code); + if (params) { + mod_perl_conjure_event(my_perl, params, "params"); + } + perl_run(my_perl); - str = SvPV(get_sv("XML_STRING", FALSE), n_a); + str = SvPV(get_sv("XML_STRING", TRUE), n_a); - if (str) { + 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)))) {