From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 23 Sep 2003 19:12:58 +0000 (+0000)
Subject: Minor nit in a debug message of the tokenizer.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=17ad61e03fe30671fca57305b7cdb9cef95a1b94;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;
 	    }