From: Vincent Pit <vince@profvince.com>
Date: Mon, 20 Dec 2010 00:20:44 +0000 (+0100)
Subject: Compatibility fix for perl 5.13.8
X-Git-Tag: rt63378^0
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=97ca54131bb4b6f68ab55f906b64f238e104ebba;p=perl%2Fmodules%2FScope-Upper.git

Compatibility fix for perl 5.13.8

This fixes RT #63378.
---

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