From: Vincent Pit Date: Sun, 26 Mar 2023 15:24:28 +0000 (+0200) Subject: Fix assertion failure on 5.37.10 X-Git-Tag: v0.34~2 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=2a6c48705317d18cf843a0a538e89f7a9e5d6ba2;p=perl%2Fmodules%2FScope-Upper.git Fix assertion failure on 5.37.10 Seems like PL_curpad[0] doesn't have an excessive refcount anymore. --- diff --git a/Upper.xs b/Upper.xs index 7d994fc..7be4f69 100644 --- a/Upper.xs +++ b/Upper.xs @@ -2034,9 +2034,11 @@ static int su_uplevel_runops_hook_entersub(pTHX) { AvFILLp(av) = fill; } +#if !XSH_HAS_PERL(5, 37, 10) /* should be referenced by PL_curpad[0] and *_ */ assert(SvREFCNT(PL_curpad[0]) > 1); SvREFCNT_dec(PL_curpad[0]); +#endif PL_curpad[0] = (SV *) av; }