LC_COLLATE.

[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)