True optional fix for UpdateTaskActivity now that I've had time to take care of it

This commit is contained in:
Akkadius 2015-01-02 17:51:55 -06:00
parent 3c6c5b9732
commit a8d28cbed5

View File

@ -5060,11 +5060,15 @@ XS(XS_Client_UpdateTaskActivity)
if (items <= 4)
Perl_croak(aTHX_ "Usage: Client::UpdateTaskActivity(THIS, TaskID, ActivityID, Count, [ignore_quest_update])");
{
bool ignore_quest_update = false;
Client * THIS;
int TaskID = (int)SvIV(ST(1));
int ActivityID = (int)SvIV(ST(2));
int Count = (int)SvUV(ST(3));
bool ignore_quest_update = (bool)SvTRUE(ST(4));
if (items == 4){
ignore_quest_update = (bool)SvTRUE(ST(4));
}
if (sv_derived_from(ST(0), "Client")) {
IV tmp = SvIV((SV*)SvRV(ST(0)));