From: Vincent Pit 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