From 760ac839baf413929cd31cc32ffd6dba6b781a81 Mon Sep 17 00:00:00 2001 From: Larry Wall Date: Sat, 10 Aug 1996 15:24:58 +0000 Subject: perl 5.003_02: [no incremental changelog available] --- run.c | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'run.c') diff --git a/run.c b/run.c index e168611b28..697c7d2a6b 100644 --- a/run.c +++ b/run.c @@ -47,7 +47,7 @@ runops() { do { if (debug) { if (watchaddr != 0 && *watchaddr != watchok) - fprintf(Perl_debug_log, "WARNING: %lx changed from %lx to %lx\n", + PerlIO_printf(Perl_debug_log, "WARNING: %lx changed from %lx to %lx\n", (long)watchaddr, (long)watchok, (long)*watchaddr); DEBUG_s(debstack()); DEBUG_t(debop(op)); @@ -65,23 +65,23 @@ OP *op; deb("%s", op_name[op->op_type]); switch (op->op_type) { case OP_CONST: - fprintf(Perl_debug_log, "(%s)", SvPEEK(cSVOP->op_sv)); + PerlIO_printf(Perl_debug_log, "(%s)", SvPEEK(cSVOP->op_sv)); break; case OP_GVSV: case OP_GV: if (cGVOP->op_gv) { sv = NEWSV(0,0); gv_fullname(sv, cGVOP->op_gv); - fprintf(Perl_debug_log, "(%s)", SvPV(sv, na)); + PerlIO_printf(Perl_debug_log, "(%s)", SvPV(sv, na)); SvREFCNT_dec(sv); } else - fprintf(Perl_debug_log, "(NULL)"); + PerlIO_printf(Perl_debug_log, "(NULL)"); break; default: break; } - fprintf(Perl_debug_log, "\n"); + PerlIO_printf(Perl_debug_log, "\n"); return 0; } @@ -91,7 +91,7 @@ char **addr; { watchaddr = addr; watchok = *addr; - fprintf(Perl_debug_log, "WATCHING, %lx is currently %lx\n", + PerlIO_printf(Perl_debug_log, "WATCHING, %lx is currently %lx\n", (long)watchaddr, (long)watchok); } @@ -112,7 +112,7 @@ debprofdump() return; for (i = 0; i < MAXO; i++) { if (profiledata[i]) - fprintf(Perl_debug_log, "%d\t%lu\n", i, profiledata[i]); + PerlIO_printf(Perl_debug_log, "%d\t%lu\n", i, profiledata[i]); } } -- cgit v1.2.1