diff options
| author | Larry Wall <lwall@sems.com> | 1996-08-10 15:24:58 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@sems.com> | 1996-08-10 15:24:58 +0000 |
| commit | 760ac839baf413929cd31cc32ffd6dba6b781a81 (patch) | |
| tree | 010ae8135426972c27b065782284341c839dc2a0 /run.c | |
| parent | 43cc1d52f97c5f21f3207f045444707e7be33927 (diff) | |
| download | perl-760ac839baf413929cd31cc32ffd6dba6b781a81.tar.gz | |
perl 5.003_02: [no incremental changelog available]
Diffstat (limited to 'run.c')
| -rw-r--r-- | run.c | 14 |
1 files changed, 7 insertions, 7 deletions
@@ -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]); } } |