From 6c2100a650f7a78cc96a43a5c290b605da5e2382 Mon Sep 17 00:00:00 2001 From: Uleat Date: Sun, 12 Jan 2020 01:32:51 -0500 Subject: [PATCH] Fix for perl EVENT_COMMAND not exporting single arguments --- zone/embparser.cpp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/zone/embparser.cpp b/zone/embparser.cpp index 0f6fffd69..ef1b404a2 100644 --- a/zone/embparser.cpp +++ b/zone/embparser.cpp @@ -1545,7 +1545,7 @@ void PerlembParser::ExportEventVariables( case EVENT_COMMAND: { Seperator sep(data); ExportVar(package_name.c_str(), "command", (sep.arg[0] + 1)); - ExportVar(package_name.c_str(), "args", (sep.argnum > 1 ? (&data[strlen(sep.arg[0]) + 1]) : "0")); + ExportVar(package_name.c_str(), "args", (sep.argnum >= 1 ? (&data[strlen(sep.arg[0]) + 1]) : "0")); break; } @@ -1614,7 +1614,7 @@ void PerlembParser::ExportEventVariables( case EVENT_BOT_COMMAND: { Seperator sep(data); ExportVar(package_name.c_str(), "bot_command", (sep.arg[0] + 1)); - ExportVar(package_name.c_str(), "args", (sep.argnum > 1 ? (&data[strlen(sep.arg[0]) + 1]) : "0")); + ExportVar(package_name.c_str(), "args", (sep.argnum >= 1 ? (&data[strlen(sep.arg[0]) + 1]) : "0")); break; }