]> git.vpit.fr Git - perl/modules/Variable-Magic.git/blobdiff - Magic.xs
Simplify the current temp test in the unmortalizer
[perl/modules/Variable-Magic.git] / Magic.xs
index f9587ab60995c8bc1b322220671d55f27ac534bc..858c80fcb3c831bebe0d1f0c70b9241f7b45a771 100644 (file)
--- 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;
   }
  }