A shot in the dark.

p4raw-id: //depot/perl@16820

1 files changed, 3 insertions, 3 deletions

diff --git a/mg.c b/mg.c
index 299d1bbb11..617603409f 100644
--- a/mg.c
+++ b/mg.c
@@ -364,11 +364,11 @@ Perl_mg_free(pTHX_ SV *sv)
 	    if (mg->mg_type == PERL_MAGIC_tiedscalar && SvROK(obj) &&
 		(SvRV(obj) == sv || GvIO(SvRV(obj)) == (IO *) sv)) {
 		/* We are already free'ing the self-tied thing
-		   so SvREFCNT_dec must not.
+		   so must not SvREFCNT_dec.
 		 */
 		SvROK_off(obj);
-	    }
-	    SvREFCNT_dec(obj);
+	    } else
+		SvREFCNT_dec(obj);
 	}
 	Safefree(mg);
     }