Fix $npc->RecalculateSkills() in Perl.

This commit is contained in:
Alex 2020-06-28 10:08:21 -04:00
parent 6bdc1ffffb
commit 1292e1c9c0

View File

@ -2479,7 +2479,7 @@ XS(XS_NPC_SetSimpleRoamBox) {
XS(XS_NPC_RecalculateSkills); /* prototype to pass -Wmissing-prototypes */
XS(XS_NPC_RecalculateSkills) {
dXSARGS;
if (items != 2)
if (items != 1)
Perl_croak(aTHX_ "Usage: NPC::RecalculateSkills(THIS)");
{
NPC *THIS;