From c0b8bfde03d095735615e51613d5544f49bca12f Mon Sep 17 00:00:00 2001
From: hg <4683435+hgtw@users.noreply.github.com>
Date: Sat, 31 Oct 2020 18:50:32 -0400
Subject: [PATCH] Fix invalid return in perl expedition api

This was returning an invalid (garbage) hash reference for
empty results when filtering on expedition name
---
 zone/embparser_api.cpp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/zone/embparser_api.cpp b/zone/embparser_api.cpp
index 7a235c965..7a10cc129 100644
--- a/zone/embparser_api.cpp
+++ b/zone/embparser_api.cpp
@@ -6225,9 +6225,9 @@ XS(XS__get_expedition_lockouts_by_char_id) {
 
 	SV* rv = &PL_sv_undef;
 
-	if (!expedition_name.empty() && hash_ref)
+	if (!expedition_name.empty())
 	{
-		rv = sv_2mortal(hash_ref); // ref that owns event hash
+		rv = hash_ref ? sv_2mortal(hash_ref) : &PL_sv_undef; // ref that owns event hash for expedition
 	}
 	else
 	{