X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Magic.xs;h=858c80fcb3c831bebe0d1f0c70b9241f7b45a771;hb=7d38c99468da03e65d5e4ab0784222cf39fba3b4;hp=f9587ab60995c8bc1b322220671d55f27ac534bc;hpb=ff3e3f39b252f61a6061d3e3de3f24147bbdd77d;p=perl%2Fmodules%2FVariable-Magic.git diff --git a/Magic.xs b/Magic.xs index f9587ab..858c80f 100644 --- a/Magic.xs +++ b/Magic.xs @@ -1034,8 +1034,7 @@ STATIC int vmg_wizard_free(pTHX_ SV *wiz, MAGIC *mg) { const I32 myfloor = PL_tmps_floor; I32 i; for (i = PL_tmps_ix; i > myfloor; --i) { - SV * const sv = PL_tmps_stack[i]; - if (sv && sv == wiz) + if (PL_tmps_stack[i] == wiz) PL_tmps_stack[i] = NULL; } }