From: Vincent Pit <perl@profvince.com>
Date: Wed, 7 Dec 2016 00:57:24 +0000 (-0200)
Subject: Reorder some code to make identical sections more apparent
X-Git-Tag: v0.61~2
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=c8d895863a1166ba76b133c7c9ae61359191a0fa;p=perl%2Fmodules%2FVariable-Magic.git

Reorder some code to make identical sections more apparent
---

diff --git a/Magic.xs b/Magic.xs
index 001f608..aa4af35 100644
--- a/Magic.xs
+++ b/Magic.xs
@@ -1473,9 +1473,9 @@ static int vmg_svt_free_cleanup(pTHX_ void *ud_) {
  /* Silently undo the ref - don't trigger destruction in the referent
   * for a second time */
  if (SvROK(ud->rsv) && SvRV(ud->rsv) == sv) {
-  --SvREFCNT(sv);
   SvRV_set(ud->rsv, NULL);
   SvROK_off(ud->rsv);
+  --SvREFCNT(sv); /* Silent */
  }
  SvREFCNT_dec_NN(ud->rsv);
 #endif
@@ -1576,7 +1576,7 @@ static int vmg_svt_free(pTHX_ SV *sv, MAGIC *mg) {
  if (SvROK(ud.rsv) && SvRV(ud.rsv) == sv) {
   SvRV_set(ud.rsv, NULL);
   SvROK_off(ud.rsv);
-  --SvREFCNT(sv); /* silent */
+  --SvREFCNT(sv); /* Silent */
  }
  SvREFCNT_dec_NN(ud.rsv);
 #endif