diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-01 05:33:14 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-01 05:33:14 +0000 |
| commit | d9aad7f7caf6c1d42b8e71a2a04bfca6447d2827 (patch) | |
| tree | dccc6636377483116741f280578188f0a4360f81 /mg.c | |
| parent | 57b2e4523f4df782c055782388ac1aacff9603ef (diff) | |
| parent | d132b95fb004c5e3d94e297d3804c90cfef96fed (diff) | |
| download | perl-d9aad7f7caf6c1d42b8e71a2a04bfca6447d2827.tar.gz | |
integrate cfgperl contents into mainline
p4raw-id: //depot/perl@4606
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -665,11 +665,15 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg) break; case '(': sv_setiv(sv, (IV)PL_gid); +#ifdef HAS_GETGROUPS Perl_sv_setpvf(aTHX_ sv, "%"Gid_t_f, 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); +#endif add_groups: #ifdef HAS_GETGROUPS { |