From bf49b057b09bec860588a9b554c3a77683394722 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Wed, 6 Oct 1999 02:36:53 +0000 Subject: make die/warn and other diagnostics go to wherever STDERR happens to point at; change places that meant Perl_debug_log rather than PerlIO_stderr() p4raw-id: //depot/perl@4302 --- toke.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'toke.c') diff --git a/toke.c b/toke.c index a08673f425..ea95f3a63d 100644 --- a/toke.c +++ b/toke.c @@ -2266,7 +2266,8 @@ Perl_yylex(pTHX) PL_oldoldbufptr = PL_oldbufptr; PL_oldbufptr = s; DEBUG_p( { - PerlIO_printf(PerlIO_stderr(), "### Tokener expecting %s at %s\n", exp_name[PL_expect], s); + PerlIO_printf(Perl_debug_log, "### Tokener expecting %s at %s\n", + exp_name[PL_expect], s); } ) retry: -- cgit v1.2.1