From 0844c848650aa2551dce1a55f02e43855fb98df9 Mon Sep 17 00:00:00 2001 From: Robin Barker Date: Fri, 12 Jan 2001 20:03:14 +0000 Subject: -Wformat Message-Id: <200101122003.UAA29599@tempest.npl.co.uk> p4raw-id: //depot/perl@8425 --- toke.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'toke.c') diff --git a/toke.c b/toke.c index b82a7c4e9b..ea32115abd 100644 --- a/toke.c +++ b/toke.c @@ -2861,7 +2861,7 @@ Perl_yylex(pTHX) if (ftst) { PL_last_lop_op = ftst; DEBUG_T( { PerlIO_printf(Perl_debug_log, - "### Saw file test %c\n", ftst); + "### Saw file test %c\n", (int)ftst); } ) FTST(ftst); } @@ -2869,7 +2869,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", ftst); + "### %c looked like a file test but was not\n", + (int)ftst); } ) s -= 2; } -- cgit v1.2.1