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:
f19a8d8
)
In Perl_regdupe_internal() eliminate npar, which is assigned to but never used.
author
Nicholas Clark
<nick@ccl4.org>
Tue, 29 Mar 2011 15:37:10 +0000
(16:37 +0100)
committer
Nicholas Clark
<nick@ccl4.org>
Wed, 18 May 2011 19:26:54 +0000
(20:26 +0100)
It has been unused since
28d8d7f41ab202dd
restructured the regexp dup code.
regcomp.c
patch
|
blob
|
blame
|
history
diff --git
a/regcomp.c
b/regcomp.c
index
ba59390
..
47590b9
100644
(file)
--- a/
regcomp.c
+++ b/
regcomp.c
@@
-11738,12
+11738,11
@@
Perl_regdupe_internal(pTHX_ REGEXP * const rx, CLONE_PARAMS *param)
dVAR;
struct regexp *const r = (struct regexp *)SvANY(rx);
regexp_internal *reti;
- int len
, npar
;
+ int len;
RXi_GET_DECL(r,ri);
PERL_ARGS_ASSERT_REGDUPE_INTERNAL;
- npar = r->nparens+1;
len = ProgLen(ri);
Newxc(reti, sizeof(regexp_internal) + len*sizeof(regnode), char, regexp_internal);