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