X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Upper.xs;h=b3f6e4eaf297845dcac4e206d4d669e16e3f058e;hb=fbb06f79497005630181247a55581fd0387e49d9;hp=47dab2b2100ea76d5b2ec5f68e268ee3aaf7df2b;hpb=bbbe07a5dec59669ffef59ce33e3884ecfd1b7f1;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/Upper.xs b/Upper.xs
index 47dab2b..b3f6e4e 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -167,8 +167,10 @@ START_MY_CXT
 # define SU_SAVE_GP_SIZE 6
 #elif !SU_HAS_PERL(5, 13, 0) || (SU_RELEASE && SU_HAS_PERL_EXACT(5, 13, 0))
 # define SU_SAVE_GP_SIZE 3
-#else
+#elif !SU_HAS_PERL(5, 13, 8)
 # define SU_SAVE_GP_SIZE 4
+#else
+# define SU_SAVE_GP_SIZE 3
 #endif
 
 #ifndef SvCANEXISTDELETE