Fix invalid return in perl expedition api

This was returning an invalid (garbage) hash reference for
empty results when filtering on expedition name
This commit is contained in:
hg 2020-10-31 18:50:32 -04:00
parent c09ada67d6
commit c0b8bfde03

View File

@ -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
{