toke.c/MAD: silence a couple of warnings

A couple of vars are set but not used under -Dmad.
The easiest way to silence the warnings is to use PERL_UNUSED_VAR()
rather than try to #ifdef away all the places the vars appear under mad.

1 files changed, 2 insertions, 0 deletions

diff --git a/toke.c b/toke.c
index 08e9c4dc9c..f1d09efe7e 100644
--- a/toke.c
+++ b/toke.c
@@ -8563,6 +8563,7 @@ Perl_yylex(pTHX)
 #ifdef PERL_MAD
 		    PL_thistoken = subtoken;
 		    s = d;
+                    PERL_UNUSED_VAR(tboffset);
 #else
 		    if (have_name)
 			(void) force_word(PL_oldbufptr + tboffset, WORD,
@@ -8685,6 +8686,7 @@ Perl_yylex(pTHX)
 		force_next(0);
 
 		PL_thistoken = subtoken;
+                PERL_UNUSED_VAR(have_proto);
 #else
 		if (have_proto) {
 		    NEXTVAL_NEXTTOKE.opval =