Fix for perl not loading events if they're chained, fix for items not being removed from inventory at an intuitive time in event_trade

This commit is contained in:
KimLS
2013-06-27 14:14:10 -07:00
parent a5db4310c6
commit 945cc2117f
3 changed files with 11 additions and 37 deletions
+2 -2
View File
@@ -255,7 +255,7 @@ void Embperl::eval_file(const char * packagename, const char * filename)
std::vector<std::string> args;
args.push_back(packagename);
args.push_back(filename);
dosub("eval_file", &args);
dosub("main::eval_file", &args);
}
void Embperl::dosub(const char * subname, const std::vector<std::string> * args, int mode)
@@ -303,7 +303,7 @@ void Embperl::eval(const char * code)
std::vector<std::string> arg;
arg.push_back(code);
// MYRA - added EVAL & KEEPERR to eval per Eglin's recommendation
dosub("my_eval", &arg, G_SCALAR|G_DISCARD|G_EVAL|G_KEEPERR);
dosub("main::my_eval", &arg, G_SCALAR|G_DISCARD|G_EVAL|G_KEEPERR);
//end Myra
}