Change 13871 by jhi@alpha on 2001/12/24 01:40:12
Promote the e/uid to wide enough un/signed integers
and printf them as such.
Affected files ...
.... //depot/perl/taint.c#28 edit
Differences ...
==== //depot/perl/taint.c#28 (text) ====
Index: perl/taint.c
--- perl/taint.c.~1~ Sun Dec 23 18:45:05 2001
+++ perl/taint.c Sun Dec 23 18:45:05 2001
@@ -13,9 +13,26 @@
{
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) {
End of Patch.
