[Bug Fix] Make Perl TakeMoneyFromPP int64 (#2158)

This commit is contained in:
Kinglykrab 2022-05-08 13:17:46 -04:00 committed by GitHub
parent 9d784d0d9b
commit f370a6048f
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -1432,7 +1432,7 @@ XS(XS_Client_TakeMoneyFromPP) {
Client *THIS;
bool has_money;
bool update_client = false;
uint32 copper = (uint32) SvUV(ST(1));
uint64 copper = (uint64) SvUV(ST(1));
VALIDATE_THIS_IS_CLIENT;
if (items == 3) {