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.
[perl5.git] / 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) {
-        struct reg_substr_datum *s;
-        I32 i;
         Newx(ret->substrs, 1, struct reg_substr_data);
        StructCopy(r->substrs, ret->substrs, struct reg_substr_data);