X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Upper.xs;h=8b2e63952511fc36f09427958a4a6a00dbb095f5;hb=1b224b7b9cb2d4685c426140e5e67d392aeb1059;hp=497b70e5ce51055f008e59937fa9b1c35906641d;hpb=83fcc5faed4fc157a242911f96a5c97095dd2899;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/Upper.xs b/Upper.xs
index 497b70e..8b2e639 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -1668,6 +1668,9 @@ STATIC CV *su_cv_clone(pTHX_ CV *proto, GV *gv) {
 #endif
 
  CvGV_set(cv, gv);
+#if SU_RELEASE && SU_HAS_PERL_EXACT(5, 21, 4)
+ CvNAMED_off(cv);
+#endif
  CvSTASH_set(cv, CvSTASH(proto));
  /* Commit 4c74a7df, publicized with perl 5.13.3, began to add backrefs to
   * stashes. CvSTASH_set() started to do it as well with commit c68d95645