From cc2ef1115840ef051e7ed3f88e83bb3934f00302 Mon Sep 17 00:00:00 2001
From: Kinglykrab <89047260+Kinglykrab@users.noreply.github.com>
Date: Thu, 3 Mar 2022 22:06:25 -0500
Subject: [PATCH] [Bug Fix] Objects::GetTiltX() and Objects::GetTiltY() Perl
 Croak Typos. (#2028)

- Typo was causing GetIncline() to show three times on Spire and causing GetTiltX() and GetTiltY() not to show at all on Spire.
---
 zone/perl_object.cpp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/zone/perl_object.cpp b/zone/perl_object.cpp
index fac167bc7..4cb4205fe 100644
--- a/zone/perl_object.cpp
+++ b/zone/perl_object.cpp
@@ -666,7 +666,7 @@ XS(XS_Object_GetTiltX); /* prototype to pass -Wmissing-prototypes */
 XS(XS_Object_GetTiltX) {
 	dXSARGS;
 	if (items != 1)
-		Perl_croak(aTHX_ "Usage: Object::GetSize(THIS)");
+		Perl_croak(aTHX_ "Usage: Object::GetTiltX(THIS)"); // @categories Objects
 	{
 		Object *THIS;
 		float  RETVAL;
@@ -683,7 +683,7 @@ XS(XS_Object_GetTiltY); /* prototype to pass -Wmissing-prototypes */
 XS(XS_Object_GetTiltY) {
 	dXSARGS;
 	if (items != 1)
-		Perl_croak(aTHX_ "Usage: Object::GetSize(THIS)");
+		Perl_croak(aTHX_ "Usage: Object::GetTiltY(THIS)"); // @categories Objects
 	{
 		Object *THIS;
 		float  RETVAL;