From 38f1e8847cb309a4b35cbdd864ded967d3ccb1a0 Mon Sep 17 00:00:00 2001
From: JJ <jeremiah.oligario@gmail.com>
Date: Mon, 3 Nov 2014 12:35:07 -0500
Subject: [PATCH] Make output of GetCharactersInInstance for perl more
 user-friendly.

---
 zone/embparser_api.cpp | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/zone/embparser_api.cpp b/zone/embparser_api.cpp
index cdd5eb6c9..0e8b10a8e 100644
--- a/zone/embparser_api.cpp
+++ b/zone/embparser_api.cpp
@@ -2876,11 +2876,16 @@ XS(XS__GetCharactersInInstance) {
 	if (charid_list.size() > 0)
 	{
 		charid_string = itoa(charid_list.size());
-		charid_string += " player(s) in instance. CharID list: ";
+		charid_string += " player(s) in instance: ";
 		auto iter = charid_list.begin();
 		while (iter != charid_list.end())
 		{
+			char char_name[64];
+			database.GetCharName(*iter, char_name);
+			charid_string += char_name;
+			charid_string += "(";
 			charid_string += itoa(*iter);
+			charid_string += ")";
 			++iter;
 			if (iter != charid_list.end())
 				charid_string += ", ";