related to [perl #113060] assert CopSTASH(cx->blk_oldcop)

HvNAME_HEK((HV*)CopSTASH(cx->blk_oldcop)) does some implicit assumptions, which should better be asserted. Also record CX pp_caller reads besides PUSH and POP.
Perl · May 29, 2012 · fb55fee · fb55fee
1 parent 014243a
commit fb55fee
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/pp_ctl.c b/pp_ctl.c
@@ -1897,6 +1897,9 @@ PP(pp_caller)
 	RETURN;
     }
 
+    DEBUG_CX("CALLER");
+    assert(CopSTASHPV(cx->blk_oldcop));
+    assert(SvOOK((HV*)CopSTASH(cx->blk_oldcop)));
     stash_hek = HvNAME_HEK((HV*)CopSTASH(cx->blk_oldcop));
     if (GIMME != G_ARRAY) {
         EXTEND(SP, 1);