Author: anthm Date: Wed May 7 10:52:34 2008 New Revision: 8291 Modified: freeswitch/trunk/src/mod/languages/mod_perl/mod_perl.c Log: doh 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 10:52:34 2008 @@ -311,6 +311,12 @@ } SWITCH_STANDARD_API(perlrun_api_function) { + + if (switch_strlen_zero(cmd)) { + stream->write_function(stream, "-ERR Missing args.\n"); + return SWITCH_STATUS_SUCCESS; + } + perl_thread(cmd); stream->write_function(stream, "+OK\n"); return SWITCH_STATUS_SUCCESS; @@ -319,6 +325,12 @@ SWITCH_STANDARD_API(perl_api_function) { struct perl_o po = { 0 }; + + if (switch_strlen_zero(cmd)) { + stream->write_function(stream, "-ERR Missing args.\n"); + return SWITCH_STATUS_SUCCESS; + } + po.cmd = strdup(cmd); po.stream = stream; po.session = session;