From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 19 Mar 2006 19:26:05 +0000 (+0000)
Subject: Remove a redundant test on mg->mg_ptr. (It had to be non-NULL to get
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d2923cdda4646b2fa4fd9d9343aa524e2c8f257d;p=p5sagit%2Fp5-mst-13.2.git

Remove a redundant test on mg->mg_ptr. (It had to be non-NULL to get
into this block).

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

diff --git a/sv.c b/sv.c
index 78e0d24..6eaaae8 100644
--- a/sv.c
+++ b/sv.c
@@ -4576,7 +4576,7 @@ Perl_sv_unmagic(pTHX_ SV *sv, int type)
 		    Safefree(mg->mg_ptr);
 		else if (mg->mg_len == HEf_SVKEY)
 		    SvREFCNT_dec((SV*)mg->mg_ptr);
-		else if (mg->mg_type == PERL_MAGIC_utf8 && mg->mg_ptr)
+		else if (mg->mg_type == PERL_MAGIC_utf8)
 		    Safefree(mg->mg_ptr);
             }
 	    if (mg->mg_flags & MGf_REFCOUNTED)