This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In Perl_regdupe_internal() eliminate npar, which is assigned to but never used.
authorNicholas Clark <nick@ccl4.org>
Tue, 29 Mar 2011 15:37:10 +0000 (16:37 +0100)
committerNicholas 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

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