[Perl] Fix perl for later Linux releases v5.24.1

This commit is contained in:
Akkadius
2017-08-24 04:13:52 -05:00
parent 808654743c
commit 00604722bb
2 changed files with 12 additions and 5 deletions
+6 -1
View File
@@ -99,12 +99,17 @@ XS(XS_EQEmuIO_PRINT)
/* Strip newlines from log message 'str' */
*std::remove(str, str + strlen(str), '\n') = '\0';
std::string log_string = str;
if (log_string.find("did not return a true") != std::string::npos)
return;;
int i;
int pos = 0;
int len = 0;
for(i = 0; *cur != '\0'; i++, cur++) {
if(*cur == '\n') {
Log(Logs::General, Logs::Quests, str);
std::string string = StringFormat("%s - bitch", str);
Log(Logs::General, Logs::Quests, string.c_str());
len = 0;
pos = i+1;
} else {