summaryrefslogtreecommitdiff
path: root/taint.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-12-12 14:33:30 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-12-12 14:33:30 +0000
commitfe5a182ca3b72c3fb16ad25f60746996b5ed4338 (patch)
treed325851c1dadf2a0650ff1e4c5d8049d120ee8e4 /taint.c
parent0384a54ad09fb53c8b2effc37683d4352a11f9de (diff)
downloadperl-fe5a182ca3b72c3fb16ad25f60746996b5ed4338.tar.gz
Fixes for casting problems detected on a SuSE 7.2 Itanium,
mostly gcc -Wall complaining about the argument of %p not being a void *. p4raw-id: //depot/perl@13659
Diffstat (limited to 'taint.c')
-rw-r--r--taint.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/taint.c b/taint.c
index e5f6f8aaa5..1ce27e324f 100644
--- a/taint.c
+++ b/taint.c
@@ -15,7 +15,7 @@ Perl_taint_proper(pTHX_ const char *f, const char *s)
#ifdef HAS_SETEUID
DEBUG_u(PerlIO_printf(Perl_debug_log,
- "%s %d %"Uid_t_f" %"Uid_t_f"\n", s, PL_tainted, (long unsigned int)PL_uid, (long unsigned int)PL_euid));
+ "%s %d %"Uid_t_f" %"Uid_t_f"\n", s, PL_tainted, (Uid_t)PL_uid, (Uid_t)PL_euid));
#endif
if (PL_tainted) {