From 0a1bd7acb04f7cfb7bc0973e9fa8f84b971137e7 Mon Sep 17 00:00:00 2001
From: Dave Mitchell <davem@fdisolutions.com>
Date: Mon, 28 Jun 2004 22:50:01 +0000
Subject: [PATCH] [perl #30509] use encoding and "eq" cause memory leak
 Perl_sv_eq() was creating a temp and not always freeing it

p4raw-id: //depot/perl@23006
---
 sv.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/sv.c b/sv.c
index 371d17e..db872e1 100644
--- a/sv.c
+++ b/sv.c
@@ -6639,8 +6639,10 @@ Perl_sv_eq(pTHX_ register SV *sv1, register SV *sv2)
 		   pv1 = SvPV(svrecode, cur1);
 	      }
 	      /* Now both are in UTF-8. */
-	      if (cur1 != cur2)
+	      if (cur1 != cur2) {
+		   SvREFCNT_dec(svrecode);
 		   return FALSE;
+	      }
 	 }
 	 else {
 	      bool is_utf8 = TRUE;
-- 
2.7.4