X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=autovivification.xs;h=f0e00473b70709ee7b6915551e459f90db07f9ff;hb=7112826bde64279aa69215293b5c94cc584d7388;hp=12dc5cc825c7b47de8bf4d391c926993d32d48a7;hpb=61320ac59b0b246a3087ad9974a37e7d85453e00;p=perl%2Fmodules%2Fautovivification.git

diff --git a/autovivification.xs b/autovivification.xs
index 12dc5cc..f0e0047 100644
--- a/autovivification.xs
+++ b/autovivification.xs
@@ -1024,6 +1024,7 @@ STATIC void a_peep_rec(pTHX_ OP *o, ptable *seen) {
    case OP_NEXTSTATE:
    case OP_DBSTATE:
    case OP_STUB:
+   case OP_UNSTACK:
     if (ptable_fetch(seen, o))
      return;
     ptable_seen_store(seen, o, o);
@@ -1273,8 +1274,8 @@ PREINIT:
  GV     *gv;
 PPCODE:
  {
-  dMY_CXT;
 #if A_WORKAROUND_REQUIRE_PROPAGATION
+  dMY_CXT;
   {
    a_ptable_clone_ud ud;