From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 25 Mar 2007 23:40:00 +0000 (+0000)
Subject: Change 30753 forgot to remove 2 now unused variables.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a965aca77d5cf0e03773fe93d88d53f33e306446;p=p5sagit%2Fp5-mst-13.2.git

Change 30753 forgot to remove 2 now unused variables.

p4raw-id: //depot/perl@30756
---

diff --git a/regcomp.c b/regcomp.c
index 0bead35..4c1ae51 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -8723,8 +8723,6 @@ Perl_reg_temp_copy (pTHX_ struct regexp *r) {
     ret->endp = ret->startp + npar;
     ret->refcnt = 1;
     if (r->substrs) {
-        struct reg_substr_datum *s;
-        I32 i;
         Newx(ret->substrs, 1, struct reg_substr_data);
 	StructCopy(r->substrs, ret->substrs, struct reg_substr_data);