]> git.vpit.fr Git - perl/modules/Variable-Magic.git/commitdiff
Reorder some code to make identical sections more apparent
authorVincent Pit <perl@profvince.com>
Wed, 7 Dec 2016 00:57:24 +0000 (22:57 -0200)
committerVincent Pit <perl@profvince.com>
Wed, 7 Dec 2016 01:05:25 +0000 (23:05 -0200)
Magic.xs

index 001f608a246cb238211147122ff4361c83ec0495..aa4af3518fc3c50dc6d35484ab3160cee3929a12 100644 (file)
--- 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