Fix tokenizer debugging trace for file tests
Rafael Garcia-Suarez [Tue, 18 Oct 2005 19:24:55 +0000 (19:24 +0000)]
p4raw-id: //depot/perl@25797

toke.c

diff --git a/toke.c b/toke.c
index ba3fbb1..4970df8 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -3106,7 +3106,7 @@ Perl_yylex(pTHX)
            if (ftst) {
                PL_last_lop_op = (OPCODE)ftst;
                DEBUG_T( { PerlIO_printf(Perl_debug_log,
-                        "### Saw file test %c\n", (int)ftst);
+                        "### Saw file test %c\n", (int)tmp);
                } );
                FTST(ftst);
            }