In Perl_regdupe_internal() eliminate npar, which is assigned to but never used.

It has been unused since 28d8d7f41ab202dd restructured the regexp dup code.

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);