From 1292e1c9c0e150b273e31fb91eea6e5428b3dbe3 Mon Sep 17 00:00:00 2001 From: Alex Date: Sun, 28 Jun 2020 10:08:21 -0400 Subject: [PATCH] Fix $npc->RecalculateSkills() in Perl. --- zone/perl_npc.cpp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/zone/perl_npc.cpp b/zone/perl_npc.cpp index fc5d791a7..59a55e49f 100644 --- a/zone/perl_npc.cpp +++ b/zone/perl_npc.cpp @@ -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;