summaryrefslogtreecommitdiff
path: root/taint.c
diff options
context:
space:
mode:
authorLarry Wall <lwall@sems.com>1996-08-10 15:24:58 +0000
committerLarry Wall <lwall@sems.com>1996-08-10 15:24:58 +0000
commit760ac839baf413929cd31cc32ffd6dba6b781a81 (patch)
tree010ae8135426972c27b065782284341c839dc2a0 /taint.c
parent43cc1d52f97c5f21f3207f045444707e7be33927 (diff)
downloadperl-760ac839baf413929cd31cc32ffd6dba6b781a81.tar.gz
perl 5.003_02: [no incremental changelog available]
Diffstat (limited to 'taint.c')
-rw-r--r--taint.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/taint.c b/taint.c
index 6c64b39fc7..be69c0e3df 100644
--- a/taint.c
+++ b/taint.c
@@ -23,7 +23,7 @@ char *f;
char *s;
{
if (tainting) {
- DEBUG_u(fprintf(stderr,"%s %d %d %d\n",s,tainted,uid, euid));
+ DEBUG_u(PerlIO_printf(PerlIO_stderr(), "%s %d %d %d\n",s,tainted,uid, euid));
if (tainted) {
char *ug = 0;
if (euid != uid)