X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Magic.xs;h=c925143a4eb8979ac0f225e14a1363ef67f392e9;hb=8045d029a0db4e3128d18f64f97d63e406034f47;hp=c2d8f6542f5c4af09941fd04f4aea404502d5728;hpb=efdd31ea6fbfd1f16a56a47f8039a8934ba9d6e8;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/Magic.xs b/Magic.xs
index c2d8f65..c925143 100644
--- a/Magic.xs
+++ b/Magic.xs
@@ -876,18 +876,6 @@ STATIC int vmg_svt_free(pTHX_ SV *sv, MAGIC *mg) {
  FREETMPS;
  LEAVE;
 
- if (has_err) {
-  /* Get the eval context that was pushed by call_sv, and fake an entry for the
-   * namesv, as die_where will need it to be non NULL later */
-  PERL_CONTEXT *cx;
-  if (cxstack_ix >= cxstack_max)
-   Perl_cxinc(aTHX);
-  cx = cxstack + cxstack_ix + 1;
-  if (!cx->blk_eval.old_namesv)
-   cx->blk_eval.old_namesv
-                 = sv_2mortal(newSVpvn_share("Variable/Magic/DUMMY.pm", 23, 0));
- }
-
  /* Calling SvREFCNT_dec() will trigger destructors in an infinite loop, so
   * we have to rely on SvREFCNT() being a lvalue. Heck, even the core does it */
  --SvREFCNT(sv);