[Hotfix] Incorrect Perl usage method (docs)

This commit is contained in:
Akkadius 2021-03-31 00:18:43 -05:00
parent 10b1f7e1ca
commit d117ce0bf2

View File

@ -911,9 +911,9 @@ XS(XS__get_spell_level) {
uint8 spell_level = IsValidSpell(spell_id) ? GetSpellLevel(spell_id, class_id) : 0; uint8 spell_level = IsValidSpell(spell_id) ? GetSpellLevel(spell_id, class_id) : 0;
uint8 server_max_level = RuleI(Character, MaxLevel); uint8 server_max_level = RuleI(Character, MaxLevel);
if (spell_level && spell_level > server_max_level) if (spell_level && spell_level > server_max_level)
spell_level = 0; spell_level = 0;
XSprePUSH; XSprePUSH;
PUSHu((UV)spell_level); PUSHu((UV)spell_level);
@ -2953,7 +2953,7 @@ XS(XS__ModifyNPCStat);
XS(XS__ModifyNPCStat) { XS(XS__ModifyNPCStat) {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: quest::ModifyNPCStat(string key, string value)"); Perl_croak(aTHX_ "Usage: quest::modifynpcstat(string key, string value)");
quest_manager.ModifyNPCStat(SvPV_nolen(ST(0)), SvPV_nolen(ST(1))); quest_manager.ModifyNPCStat(SvPV_nolen(ST(0)), SvPV_nolen(ST(1)));
@ -6469,7 +6469,7 @@ XS(XS__secondstotime) {
sv_setpv(TARG, time_string.c_str()); sv_setpv(TARG, time_string.c_str());
XSprePUSH; XSprePUSH;
PUSHTARG; PUSHTARG;
XSRETURN(1); XSRETURN(1);
} }
/* /*