From 26e623cf5c6575142e6e7688e9ee3f8f630f52a2 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Mon, 24 Dec 2001 01:40:12 +0000 Subject: [PATCH] Promote the e/uid to wide enough un/signed integers and printf them as such. p4raw-id: //depot/perl@13871 --- taint.c | 23 ++++++++++++++++++++--- 1 file changed, 20 insertions(+), 3 deletions(-) diff --git a/taint.c b/taint.c index 9bf00bc..c25ff77 100644 --- a/taint.c +++ b/taint.c @@ -13,9 +13,26 @@ Perl_taint_proper(pTHX_ const char *f, const char *s) { char *ug; -#ifdef HAS_SETEUID - DEBUG_u(PerlIO_printf(Perl_debug_log, - "%s %d %"Uid_t_f" %"Uid_t_f"\n", s, PL_tainted, (Uid_t)PL_uid, (Uid_t)PL_euid)); +#if defined(HAS_SETEUID) && defined(DEBUGGING) +# if Uid_t_size == 1 + { + UV uid = PL_uid; + UV euid = PL_euid; + + DEBUG_u(PerlIO_printf(Perl_debug_log, + "%s %d %"UVuf" %"UVuf"\n", + s, PL_tainted, uid, euid)); + } +# else + { + IV uid = PL_uid; + IV euid = PL_euid; + + DEBUG_u(PerlIO_printf(Perl_debug_log, + "%s %d %"IVdf" %"IVdf"\n", + s, PL_tainted, uid, euid)); + } +# endif #endif if (PL_tainted) { -- 2.7.4