From c09ada67d6590143f6e87f4fb351adff0c100cb8 Mon Sep 17 00:00:00 2001 From: hg <4683435+hgtw@users.noreply.github.com> Date: Mon, 26 Oct 2020 21:16:14 -0400 Subject: [PATCH] Add expedition lock message constants to perl --- zone/perl_expedition.cpp | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/zone/perl_expedition.cpp b/zone/perl_expedition.cpp index a3d7fc217..40fe1bad1 100644 --- a/zone/perl_expedition.cpp +++ b/zone/perl_expedition.cpp @@ -664,6 +664,12 @@ XS(boot_Expedition) { newXSproto(strcpy(buf, "SetSecondsRemaining"), XS_Expedition_SetSecondsRemaining, file, "$$"); newXSproto(strcpy(buf, "SetZoneInLocation"), XS_Expedition_SetZoneInLocation, file, "$$$$$"); newXSproto(strcpy(buf, "UpdateLockoutDuration"), XS_Expedition_UpdateLockoutDuration, file, "$$$;$"); + + HV* stash = gv_stashpvs("ExpeditionLockMessage", GV_ADD); + newCONSTSUB(stash, "None", newSViv(static_cast(ExpeditionLockMessage::None))); + newCONSTSUB(stash, "Close", newSViv(static_cast(ExpeditionLockMessage::Close))); + newCONSTSUB(stash, "Begin", newSViv(static_cast(ExpeditionLockMessage::Begin))); + XSRETURN_YES; }