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
commit 2a19ad0197
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

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;