- dTHR; /* just for taint */
- char *ug;
-
-#ifdef IV_IS_QUAD
- DEBUG_u(PerlIO_printf(Perl_debug_log,
- "%s %d %" PERL_PRId64 " %" PERL_PRId64 "\n", s, PL_tainted, (IV)PL_uid, (IV)PL_euid));
-#else
- DEBUG_u(PerlIO_printf(Perl_debug_log,
- "%s %d %lu %lu\n", s, PL_tainted, (unsigned long)PL_uid, (unsigned long)PL_euid));
+#if defined(HAS_SETEUID) && defined(DEBUGGING)
+ dVAR;
+
+ PERL_ARGS_ASSERT_TAINT_PROPER;
+
+# if Uid_t_size == 1
+ {
+ const UV uid = PL_uid;
+ const UV euid = PL_euid;
+
+ DEBUG_u(PerlIO_printf(Perl_debug_log,
+ "%s %d %"UVuf" %"UVuf"\n",
+ s, PL_tainted, uid, euid));
+ }
+# else
+ {
+ const IV uid = PL_uid;
+ const IV euid = PL_euid;
+
+ DEBUG_u(PerlIO_printf(Perl_debug_log,
+ "%s %d %"IVdf" %"IVdf"\n",
+ s, PL_tainted, uid, euid));
+ }
+# endif