[perl #103804] [PATCH] Unused variable in in sv_eq

# New Ticket Created by  Brian Fraser 
# Please include the string:  [perl #103804]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=103804 >


sv_eq has a tpv variable that it never uses. That's about it : )

diff --git a/sv.c b/sv.c
index 00caa2f..c3d51c3 100644
--- a/sv.c
+++ b/sv.c
@@ -7159,7 +7159,6 @@ Perl_sv_eq_flags(pTHX_ register SV *sv1, register SV
*sv2, const U32 flags)
const char *pv2;
STRLEN cur2;
I32 eq = 0;
- char *tpv = NULL;
SV* svrecode = NULL;

if (!sv1) {
@@ -7223,8 +7222,6 @@ Perl_sv_eq_flags(pTHX_ register SV *sv1, register SV
*sv2, const U32 flags)
eq = (pv1 == pv2) || memEQ(pv1, pv2, cur1);

SvREFCNT_dec(svrecode);
- if (tpv)
- Safefree(tpv);

return eq;
}

• [perl #103804] [PATCH] Unused variable in in sv_eq by Brian Fraser
• Re: [perl #103804] [PATCH] Unused variable in in sv_eq by Nicholas Clark
• Re: [perl #103804] [PATCH] Unused variable in in sv_eq by Karl Williamson