Author: gozer
Date: Fri Mar 10 16:45:56 2006
New Revision: 384970
URL: http://svn.apache.org/viewcvs?rev=384970&view=rev
Log:
Code cleanup, Perl defines Uid_t_f and Gid_t_f as
printf format strings to print these types since
they can vary greatly between unixes. Casting
straight to ints was not a portable solution.
Modified:
perl/modperl/trunk/src/modules/perl/modperl_perl.c
Modified: perl/modperl/trunk/src/modules/perl/modperl_perl.c
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/src/modules/perl/modperl_perl.c?rev=384970&r1=384969&r2=384970&view=diff
==============================================================================
--- perl/modperl/trunk/src/modules/perl/modperl_perl.c (original)
+++ perl/modperl/trunk/src/modules/perl/modperl_perl.c Fri Mar 10 16:45:56 2006
@@ -79,13 +79,14 @@
#ifdef MP_MAINTAIN_PPID
"ppid=%d, "
#endif
- "uid=%d, euid=%d, gid=%d, egid=%d\n",
+ "uid=%" Uid_t_f ", euid=%" Uid_t_f ", "
+ "gid=%" Gid_t_f ", egid=%" Gid_t_f "\n",
(int)ids->pid,
#ifdef MP_MAINTAIN_PPID
(int)ids->ppid,
#endif
- (int)ids->uid, (int)ids->euid,
- (int)ids->gid, (int)ids->egid);
+ ids->uid, ids->euid,
+ ids->gid, ids->egid);
#endif /* #ifndef WIN32 */
}
