-Wall cleanup continues.

p4raw-id: //depot/perl@10392

1 files changed, 4 insertions, 0 deletions

diff --git a/toke.c b/toke.c
index 5a0d01a9fe..424249fded 100644
--- a/toke.c
+++ b/toke.c
@@ -181,6 +181,8 @@ int yyactlevel = -1;
 /* grandfather return to old style */
 #define OLDLOP(f) return(yylval.ival=f,PL_expect = XTERM,PL_bufptr = s,(int)LSTOP)
 
+#ifdef DEBUGGING
+
 STATIC void
 S_tokereport(pTHX_ char *thing, char* s, I32 rv)
 {
@@ -199,6 +201,8 @@ S_tokereport(pTHX_ char *thing, char* s, I32 rv)
     });
 }
 
+#endif
+
 /*
  * S_ao
  *