Minor nit in a debug message of the tokenizer.

p4raw-id: //depot/perl@21342

diff --git a/toke.c b/toke.c
index c19ee09..0b934c1 100644 (file)
--- 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;
            }