From e82aee1102cac59caac2bc14bfa1e661f3e7c8ef Mon Sep 17 00:00:00 2001
From: Slaven Rezic <slaven@rezic.de>
Date: Sun, 21 Feb 2016 17:11:34 +0100
Subject: [PATCH] perl 5.23.8 compatibility (RT #112226)
---
Want.xs | 11 ++++++++++-
1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/Want.xs b/Want.xs
index bf7fff3..ba247b5 100644
--- a/Want.xs
+++ b/Want.xs
@@ -172,8 +172,17 @@ upcontext_plus(pTHX_ I32 count, bool end_of_block)
continue;
#ifdef CXt_LOOP_PLAIN
case CXt_LOOP_PLAIN:
+#endif
+#ifdef CXt_LOOP_FOR
case CXt_LOOP_FOR:
-#else
+#endif
+#ifdef CXt_LOOP_LIST
+ case CXt_LOOP_LIST:
+#endif
+#ifdef CXt_LOOP_ARY
+ case CXt_LOOP_ARY:
+#endif
+#ifdef CXt_LOOP
case CXt_LOOP:
#endif
return tcx;
--
2.1.2