This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change 30753 forgot to remove 2 now unused variables.
authorNicholas Clark <nick@ccl4.org>
Sun, 25 Mar 2007 23:40:00 +0000 (23:40 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 25 Mar 2007 23:40:00 +0000 (23:40 +0000)
p4raw-id: //depot/perl@30756

regcomp.c

index 0bead35..4c1ae51 100644 (file)
--- 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) {
     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);
 
         Newx(ret->substrs, 1, struct reg_substr_data);
        StructCopy(r->substrs, ret->substrs, struct reg_substr_data);