Minor nit in a debug message of the tokenizer.

p4raw-id: //depot/perl@21342

1 files changed, 2 insertions, 2 deletions

diff --git a/toke.c b/toke.c
index c19ee09ddb..0b934c1a79 100644
--- a/toke.c
+++ b/toke.c
@@ -2875,8 +2875,8 @@ Perl_yylex(pTHX)
 		/* Assume it was a minus followed by a one-letter named
 		 * subroutine call (or a -bareword), then. */
 		DEBUG_T( { PerlIO_printf(Perl_debug_log,
-			"### %c looked like a file test but was not\n",
-			(int)ftst);
+			"### '-%c' looked like a file test but was not\n",
+			tmp);
 		} );
 		s -= 2;
 	    }