From 837c0a43859d9098bf9bca0abff9f21832cb0381 Mon Sep 17 00:00:00 2001
From: Kinglykrab <89047260+Kinglykrab@users.noreply.github.com>
Date: Tue, 3 May 2022 22:55:56 -0400
Subject: [PATCH] [Quest API] Perl Money Fixes. (#2098)

- Fixes `$client->GetAllMoney()` to use `uint64` and not overflow int value.
- Fixes `$client->GetCarriedMoney()` to use `uint64` and not overflow int value.
---
 zone/perl_client.cpp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/zone/perl_client.cpp b/zone/perl_client.cpp
index 6371fb4f9..f5e22347e 100644
--- a/zone/perl_client.cpp
+++ b/zone/perl_client.cpp
@@ -4079,12 +4079,12 @@ XS(XS_Client_GetCarriedMoney) {
 		Perl_croak(aTHX_ "Usage: Client::GetCarriedMoney(THIS)"); // @categories Currency and Points
 	{
 		Client *THIS;
-		int RETVAL;
+		uint64 RETVAL;
 		dXSTARG;
 		VALIDATE_THIS_IS_CLIENT;
 		RETVAL = THIS->GetCarriedMoney();
 		XSprePUSH;
-		PUSHi((IV) RETVAL);
+		PUSHu((UV) RETVAL);
 	}
 	XSRETURN(1);
 }
@@ -4097,12 +4097,12 @@ XS(XS_Client_GetAllMoney) {
 		Perl_croak(aTHX_ "Usage: Client::GetAllMoney(THIS)"); // @categories Currency and Points
 	{
 		Client *THIS;
-		int RETVAL;
+		uint64 RETVAL;
 		dXSTARG;
 		VALIDATE_THIS_IS_CLIENT;
 		RETVAL = THIS->GetAllMoney();
 		XSprePUSH;
-		PUSHi((IV) RETVAL);
+		PUSHu((UV) RETVAL);
 	}
 	XSRETURN(1);
 }