[Freeswitch-svn] [commit] r8293 - freeswitch/trunk/src/mod/languages/mod_perl

[Freeswitch SVN]

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)))) {