- "%s %d %"IVdf" %"IVdf"\n",
- s, PL_tainted, uid, euid));
+ "%s %d %" UVuf " %" UVuf "\n",
+ s, TAINT_get, (UV)uid, (UV)euid));
+#else /* uid_t is signed (Uid_t_sign == -1), or don't know. */
+ DEBUG_u(PerlIO_printf(Perl_debug_log,
+ "%s %d %" IVdf " %" IVdf "\n",
+ s, TAINT_get, (IV)uid, (IV)euid));
+#endif