From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 27 May 2002 20:09:27 +0000 (+0000)
Subject: A shot in the dark.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=efe6c6a19b7c016fee2f63a93a8d6f569c5793ba;p=p5sagit%2Fp5-mst-13.2.git

A shot in the dark.

p4raw-id: //depot/perl@16820
---

diff --git a/mg.c b/mg.c
index 299d1bb..6176034 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);
     }