diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-28 13:49:26 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-28 13:49:26 +0000 |
| commit | 785fb66b9a3cb438ed213406a1dec3f5257fd014 (patch) | |
| tree | 95b868329716f71cd7d0c2ab13b68d8e2f85fb41 /taint.c | |
| parent | 51c79822f63da24f84368a1ef0bb5bdfde34872c (diff) | |
| download | perl-785fb66b9a3cb438ed213406a1dec3f5257fd014.tar.gz | |
Fix printing of uids and gids; regen Configure.
p4raw-id: //depot/cfgperl@4480
Diffstat (limited to 'taint.c')
| -rw-r--r-- | taint.c | 7 |
1 files changed, 1 insertions, 6 deletions
@@ -14,13 +14,8 @@ Perl_taint_proper(pTHX_ const char *f, const char *s) dTHR; /* just for taint */ char *ug; -#if Uid_t_SIGN == -1 DEBUG_u(PerlIO_printf(Perl_debug_log, - "%s %d %"IVdf" %"IVdf"\n", s, PL_tainted, (IV)PL_uid, (IV)PL_euid)); -#else - DEBUG_u(PerlIO_printf(Perl_debug_log, - "%s %d %"UVuf" %"UVuf"\n", s, PL_tainted, (UV)PL_uid, (UV)PL_euid)); -#endif + "%s %d %"Uid_t_f" %"Uid_t_f"\n", s, PL_tainted, PL_uid, PL_euid)); if (PL_tainted) { if (!f) |