From 0780bc72ac07a0de22bcbd2390e8812c3a23d481 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 29 Mar 2011 16:37:10 +0100
Subject: [PATCH] In Perl_regdupe_internal() eliminate npar, which is assigned
 to but never used.

It has been unused since 28d8d7f41ab202dd restructured the regexp dup code.
---
 regcomp.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/regcomp.c b/regcomp.c
index ba59390..47590b9 100644
--- 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);
-- 
1.8.3.1