Compatibility fix for perl 5.13.8

[perl/modules/Scope-Upper.git] / Upper.xs

diff --git a/Upper.xs b/Upper.xs
index 47dab2b2100ea76d5b2ec5f68e268ee3aaf7df2b..b3f6e4eaf297845dcac4e206d4d669e16e3f058e 100644 (file)
--- 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