This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
e2af760
)
Unused variable in in sv_eq
author
Brian Fraser
<fraserbn@gmail.com>
Thu, 17 Nov 2011 15:06:53 +0000
(08:06 -0700)
committer
Karl Williamson
<public@khwilliamson.com>
Thu, 17 Nov 2011 15:14:20 +0000
(08:14 -0700)
sv.c
patch
|
blob
|
blame
|
history
diff --git
a/sv.c
b/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;
}