diff options
| author | Andy Lester <andy@petdance.com> | 2005-05-16 05:13:53 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-16 16:56:43 +0000 |
| commit | a3b680e6b77dd7f88268fad8b1dbdf4f641dd836 (patch) | |
| tree | 5b6dc5a60baf7a56b2db73bf0faffe0c3c44963c /mg.c | |
| parent | 02a44301bf4932369de0c75ad20a9c1256a455cd (diff) | |
| download | perl-a3b680e6b77dd7f88268fad8b1dbdf4f641dd836.tar.gz | |
consting-eleventy.patch: More consts, plus actual bug fix
Message-ID: <20050516151353.GA25387@petdance.com>
p4raw-id: //depot/perl@24489
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -914,21 +914,21 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg) case '(': sv_setiv(sv, (IV)PL_gid); #ifdef HAS_GETGROUPS - Perl_sv_setpvf(aTHX_ sv, "%"Gid_t_f, PL_gid); + Perl_sv_setpvf(aTHX_ sv, "%"Gid_t_f, (long unsigned int)PL_gid); #endif goto add_groups; case ')': sv_setiv(sv, (IV)PL_egid); #ifdef HAS_GETGROUPS - Perl_sv_setpvf(aTHX_ sv, "%"Gid_t_f, PL_egid); + Perl_sv_setpvf(aTHX_ sv, "%"Gid_t_f, (long unsigned int)PL_egid); #endif add_groups: #ifdef HAS_GETGROUPS { Groups_t gary[NGROUPS]; - i = getgroups(NGROUPS,gary); - while (--i >= 0) - Perl_sv_catpvf(aTHX_ sv, " %"Gid_t_f, gary[i]); + I32 j = getgroups(NGROUPS,gary); + while (--j >= 0) + Perl_sv_catpvf(aTHX_ sv, " %"Gid_t_f, (long unsigned int)gary[j]); } #endif (void)SvIOK_on(sv); /* what a wonderful hack! */ |