From f370a6048ff5a4873760c7aedabcc8389b68586d Mon Sep 17 00:00:00 2001
From: Kinglykrab <89047260+Kinglykrab@users.noreply.github.com>
Date: Sun, 8 May 2022 13:17:46 -0400
Subject: [PATCH] [Bug Fix] Make Perl TakeMoneyFromPP int64 (#2158)

---
 zone/perl_client.cpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/zone/perl_client.cpp b/zone/perl_client.cpp
index f5e22347e..0cbbe7e45 100644
--- a/zone/perl_client.cpp
+++ b/zone/perl_client.cpp
@@ -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) {