From: Anthony Minessale <anthony.minessale@gmail.com>
Date: Wed, 7 May 2008 14:52:34 +0000 (+0000)
Subject: doh
X-Git-Tag: v1.0-rc5~89
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c317b1936debcace5f9d079bae7e8a893fefce71;p=thirdparty%2Ffreeswitch.git

doh

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@8291 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 8b5c19252d..62769d1226 100644
--- a/src/mod/languages/mod_perl/mod_perl.c
+++ b/src/mod/languages/mod_perl/mod_perl.c
@@ -311,6 +311,12 @@ int perl_thread(const char *text)
 }
 
 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(perlrun_api_function) {
 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;