From 5b5c3a08e62f4ddd2017f4441cb3d5949a4ce38c Mon Sep 17 00:00:00 2001
From: Kinglykrab <kinglykrab@gmail.com>
Date: Sun, 25 Mar 2018 14:33:38 -0400
Subject: [PATCH] Fix TryMoveAlong() in Perl. - Didn't have 4th option
 accounted for (my bad).

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

diff --git a/zone/perl_mob.cpp b/zone/perl_mob.cpp
index 35f26cfc7..cb30cf809 100644
--- a/zone/perl_mob.cpp
+++ b/zone/perl_mob.cpp
@@ -9402,7 +9402,7 @@ XS(boot_Mob)
 		newXSproto(strcpy(buf, "IsSilenced"), XS_Mob_IsSilenced, file, "$");
 		newXSproto(strcpy(buf, "IsAmnesiad"), XS_Mob_IsAmnesiad, file, "$");
 		newXSproto(strcpy(buf, "GetMeleeMitigation"), XS_Mob_GetMeleeMitigation, file, "$");
-		newXSproto(strcpy(buf, "TryMoveAlong"), XS_Mob_TryMoveAlong, file, "$$;$");
+		newXSproto(strcpy(buf, "TryMoveAlong"), XS_Mob_TryMoveAlong, file, "$$$;$");
 	XSRETURN_YES;
 }