From 785fb66b9a3cb438ed213406a1dec3f5257fd014 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Thu, 28 Oct 1999 13:49:26 +0000 Subject: Fix printing of uids and gids; regen Configure. p4raw-id: //depot/cfgperl@4480 --- taint.c | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) (limited to 'taint.c') diff --git a/taint.c b/taint.c index c0a71cb2d8..24fd487d75 100644 --- a/taint.c +++ b/taint.c @@ -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) -- cgit v1.2.1