From: Father Chrysostomos <sprout@cpan.org>
Date: Fri, 7 Sep 2012 12:28:05 +0000 (+0200)
Subject: Fix building with the newest version of 5.17.4
X-Git-Tag: v0.20~28
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=91e5283b10139b952dd22a6478166edf430cfcce;p=perl%2Fmodules%2FScope-Upper.git

Fix building with the newest version of 5.17.4
---

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