From 705295f4c4511b6d4bce6c2ccf5c8d44d6f4eea8 Mon Sep 17 00:00:00 2001 From: Natedog2012 Date: Wed, 27 Apr 2016 21:49:12 -0700 Subject: [PATCH] Fix perl version of GetBuffSlotFromType --- zone/perl_mob.cpp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/zone/perl_mob.cpp b/zone/perl_mob.cpp index 2819d2bf2..8c7413a40 100644 --- a/zone/perl_mob.cpp +++ b/zone/perl_mob.cpp @@ -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)));