diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-21 14:05:10 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-21 14:05:10 +0000 |
| commit | a52cb5f71fdb108349442902e9c003c02608aae2 (patch) | |
| tree | 35e8c2a03a56db5aba16d0609296b5ab5f7c406e /mg.c | |
| parent | 4f6d0fe9dc5fc99027b6a9b7c8be0b6b4031a2e4 (diff) | |
| download | perl-a52cb5f71fdb108349442902e9c003c02608aae2.tar.gz | |
VMS patches from Peter Prymmer.
p4raw-id: //depot/cfgperl@4595
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 { |