From: Vincent Pit <vince@profvince.com>
Date: Wed, 22 Aug 2012 09:24:55 +0000 (+0200)
Subject: Fix build with the new PADLIST API from 5.17.4
X-Git-Tag: v0.19~6
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScope-Upper.git;a=commitdiff_plain;h=7505ee1e658a27b68ebe24c52c1db86694251bb4

Fix build with the new PADLIST API from 5.17.4
---

diff --git a/Upper.xs b/Upper.xs
index c4e1038..3d2472a 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -116,6 +116,10 @@ STATIC SV *su_newSV_type(pTHX_ svtype t) {
 # define CvISXSUB(C) CvXSUB(C)
 #endif
 
+#ifndef PADLIST_ARRAY
+# define PADLIST_ARRAY(P) AvARRAY(P)
+#endif
+
 #ifndef CxHASARGS
 # define CxHASARGS(C) ((C)->blk_sub.hasargs)
 #endif
@@ -1249,7 +1253,7 @@ done:
 
 #endif /* SU_UPLEVEL_HIJACKS_RUNOPS */
 
-#define su_at_underscore(C) AvARRAY(AvARRAY(CvPADLIST(C))[CvDEPTH(C)])[0]
+#define su_at_underscore(C) AvARRAY(PADLIST_ARRAY(CvPADLIST(C))[CvDEPTH(C)])[0]
 
 STATIC void su_uplevel_restore(pTHX_ void *sus_) {
  su_uplevel_ud *sud = sus_;