diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2011-11-17 08:06:53 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-11-17 08:14:20 -0700 |
| commit | e1750a13e7d7d9e1b5d1d9e917b4cff24c98df40 (patch) | |
| tree | 71e7636ce1da0c53464a507fb0df7f62fe35a7ee /sv.c | |
| parent | e2af760154b3243ba59f0f5e9986616a6022b986 (diff) | |
| download | perl-e1750a13e7d7d9e1b5d1d9e917b4cff24c98df40.tar.gz | |
Unused variable in in sv_eq
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 3 |
1 files changed, 0 insertions, 3 deletions
@@ -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; } |