From d2923cdda4646b2fa4fd9d9343aa524e2c8f257d Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 19 Mar 2006 19:26:05 +0000
Subject: [PATCH] Remove a redundant test on mg->mg_ptr. (It had to be non-NULL
 to get into this block).

p4raw-id: //depot/perl@27543
---
 sv.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
2.7.4