[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 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;
XSprePUSH;
PUSHu((UV)spell_level);
@ -2953,7 +2953,7 @@ XS(XS__ModifyNPCStat);
XS(XS__ModifyNPCStat) {
dXSARGS;
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)));
@ -6469,7 +6469,7 @@ XS(XS__secondstotime) {
sv_setpv(TARG, time_string.c_str());
XSprePUSH;
PUSHTARG;
XSRETURN(1);
XSRETURN(1);
}
/*