From: Vincent Pit <vpit@cpan.org>
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;
  }