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:
bec5a1b
)
Eliminate two unused variables detected by clang.
author
James E Keenan
<jkeenan@cpan.org>
Fri, 6 Jan 2017 22:56:50 +0000
(17:56 -0500)
committer
James E Keenan
<jkeenan@cpan.org>
Fri, 6 Jan 2017 22:56:50 +0000
(17:56 -0500)
"warning: unused variable 'i' [-Wunused-variable]"
regcomp.c
patch
|
blob
|
blame
|
history
diff --git
a/regcomp.c
b/regcomp.c
index
dc94b39
..
2e7999f
100644
(file)
--- a/
regcomp.c
+++ b/
regcomp.c
@@
-10068,9
+10068,6
@@
Perl__invlistEQ(pTHX_ SV* const a, SV* const b, const bool complement_b)
UV len_a = _invlist_len(a);
UV len_b = _invlist_len(b);
- UV i = 0; /* current index into the arrays */
- bool retval = TRUE; /* Assume are identical until proven otherwise */
-
PERL_ARGS_ASSERT__INVLISTEQ;
/* If are to compare 'a' with the complement of b, set it