Merge pull request #1083 from EQEmu/recalculate_skills

Fix $npc->RecalculateSkills() in Perl.
This commit is contained in:
Chris Miles
2020-06-28 20:04:41 -05:00
committed by GitHub
+1 -1
View File
@@ -2479,7 +2479,7 @@ XS(XS_NPC_SetSimpleRoamBox) {
XS(XS_NPC_RecalculateSkills); /* prototype to pass -Wmissing-prototypes */ XS(XS_NPC_RecalculateSkills); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_RecalculateSkills) { XS(XS_NPC_RecalculateSkills) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::RecalculateSkills(THIS)"); Perl_croak(aTHX_ "Usage: NPC::RecalculateSkills(THIS)");
{ {
NPC *THIS; NPC *THIS;