projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
perl 5.003_07: pod/perlvar.pod
[p5sagit/p5-mst-13.2.git]
/
taint.c
diff --git
a/taint.c
b/taint.c
index
6c64b39
..
be69c0e
100644
(file)
--- 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)