Fix perl version of GetBuffSlotFromType

This commit is contained in:
Natedog2012 2016-04-27 21:49:12 -07:00
parent 2fde9edb41
commit 705295f4c4

View File

@ -1464,7 +1464,7 @@ XS(XS_Mob_GetBuffSlotFromType)
Mob * THIS;
int8 RETVAL;
dXSTARG;
uint8 type = (uint8)SvUV(ST(1));
uint16 type = (uint16)SvUV(ST(1));
if (sv_derived_from(ST(0), "Mob")) {
IV tmp = SvIV((SV*)SvRV(ST(0)));