diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-24 01:40:12 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-24 01:40:12 +0000 |
| commit | 26e623cf5c6575142e6e7688e9ee3f8f630f52a2 (patch) | |
| tree | 0436ecd1c57849188ffbb16619980a3be83b5f8d /taint.c | |
| parent | d308175ab83748573482cc00d7ded514f6a34f91 (diff) | |
| download | perl-26e623cf5c6575142e6e7688e9ee3f8f630f52a2.tar.gz | |
Promote the e/uid to wide enough un/signed integers
and printf them as such.
p4raw-id: //depot/perl@13871
Diffstat (limited to 'taint.c')
| -rw-r--r-- | taint.c | 23 |
1 files changed, 20 insertions, 3 deletions
@@ -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) { |