Unused variable in in sv_eq
authorBrian Fraser <fraserbn@gmail.com>
Thu, 17 Nov 2011 15:06:53 +0000 (08:06 -0700)
committerKarl Williamson <public@khwilliamson.com>
Thu, 17 Nov 2011 15:14:20 +0000 (08:14 -0700)
sv.c

index af1b21c..3bbf5db 100644 (file)
--- 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;
 }