X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScope-Upper.git;a=blobdiff_plain;f=Upper.xs;fp=Upper.xs;h=7be4f690842349265d4fc72e8262387257071a69;hp=7d994fcdf5e83105e985ca71da13416ca6da1828;hb=2a6c48705317d18cf843a0a538e89f7a9e5d6ba2;hpb=b8097cede97532068ee636c926a09939965720c0

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;
  }