fix

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@8293 d0543943-73ff-0310-b7d9-9358b9ac24b2

diff --git a/src/mod/languages/mod_perl/mod_perl.c b/src/mod/languages/mod_perl/mod_perl.c
index 62769d122623fee5ce8074676b86b4cc9c4e1feb..fe09cab64e6495ce8f88738b1dfad31dd94189de 100644 (file)
--- a/src/mod/languages/mod_perl/mod_perl.c
+++ b/src/mod/languages/mod_perl/mod_perl.c
@@ -423,10 +423,14 @@ static switch_xml_t perl_fetch(const char *section,
                                                );
                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)))) {