Remove some set but unused variables

Thanks, gcc, for letting me know.

diff --git a/regcomp.c b/regcomp.c
index a9e92e1..7f60e29 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -6800,7 +6800,6 @@ Perl_reg_numbered_buff_length(pTHX_ REGEXP * const r, const SV * const sv,
     struct regexp *const rx = (struct regexp *)SvANY(r);
     I32 i;
     I32 s1, t1;
-    I32 n = paren;
 
     PERL_ARGS_ASSERT_REG_NUMBERED_BUFF_LENGTH;
 
@@ -6839,7 +6838,6 @@ Perl_reg_numbered_buff_length(pTHX_ REGEXP * const r, const SV * const sv,
       case RX_BUFF_IDX_CARET_FULLMATCH: /* ${^MATCH} */
          if (!(rx->extflags & RXf_PMf_KEEPCOPY))
             goto warn_undef;
-        n = RX_BUFF_IDX_FULLMATCH;
         /*FALLTHROUGH*/
 
       /* $& / ${^MATCH}, $1, $2, ... */

diff --git a/toke.c b/toke.c
index 2b6cf61..b09f1f9 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -9616,7 +9616,7 @@ S_scan_heredoc(pTHX_ register char *s)
     /* inside a string eval or quote-like operator */
     if (!infile || PL_lex_inwhat) {
        SV *linestr;
-       char *bufptr, *bufend;
+       char *bufend;
        char * const olds = s;
        PERL_CONTEXT * const cx = &cxstack[cxstack_ix];
        /* These two fields are not set until an inner lexing scope is
@@ -9652,7 +9652,6 @@ S_scan_heredoc(pTHX_ register char *s)
            s = (char*)memchr((void*)s, '\n', PL_bufend - s);
            assert(s);
        }
-       bufptr = shared->ls_bufptr;
        linestr = shared->ls_linestr;
        bufend = SvEND(linestr);
        d = s;