pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2026-06-11 03:31:08 +00:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Added some other timer functions to lua, removed perl memory leak stop gap for the moment until i decide how to fix it...

Browse Source
This commit is contained in:
KimLS
2014-03-07 19:59:44 -08:00
parent be57c66256
commit e25fd47828
4 changed files with 107 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
zone/embparser.cpp
+7 -6
View File
@@ -670,11 +670,11 @@ int PerlembParser::SendCommands(const char *pkgprefix, const char *event, uint32
ret_value = perl->dosub(std::string(pkgprefix).append("::").append(event).c_str());
#ifdef EMBPERL_XS_CLASSES
std::string eval_str = (std::string)"$" + (std::string)pkgprefix + (std::string)"::client = undef;";
eval_str += (std::string)"$" + (std::string)pkgprefix + (std::string)"::npc = undef;";
eval_str += (std::string)"$" + (std::string)pkgprefix + (std::string)"::questitem = undef;";
eval_str += (std::string)"$" + (std::string)pkgprefix + (std::string)"::entity_list = undef;";
perl->eval(eval_str.c_str());
// std::string eval_str = (std::string)"$" + (std::string)pkgprefix + (std::string)"::client = undef;";
// eval_str += (std::string)"$" + (std::string)pkgprefix + (std::string)"::npc = undef;";
// eval_str += (std::string)"$" + (std::string)pkgprefix + (std::string)"::questitem = undef;";
// eval_str += (std::string)"$" + (std::string)pkgprefix + (std::string)"::entity_list = undef;";
// perl->eval(eval_str.c_str());
#endif
} catch(const char * err) {
@@ -687,7 +687,8 @@ int PerlembParser::SendCommands(const char *pkgprefix, const char *event, uint32
error += "::";
error += event;
error += " - ";
error += err;
if(strlen(err) > 0)
error += err;
AddError(error);
}
}