X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FVariable-Magic.git;a=blobdiff_plain;f=Magic.xs;fp=Magic.xs;h=aa4af3518fc3c50dc6d35484ab3160cee3929a12;hp=001f608a246cb238211147122ff4361c83ec0495;hb=c8d895863a1166ba76b133c7c9ae61359191a0fa;hpb=7ffa818799831666a3a166baa292421f7c03809b

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