summaryrefslogtreecommitdiff
path: root/mg.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>1999-08-16 18:55:35 +0000
committerJarkko Hietaniemi <jhi@iki.fi>1999-08-16 18:55:35 +0000
commit2d4389e49f01a9fd18e4d854b4d31048551328b6 (patch)
treeb9836aabebca08c331ad5fff785cd7e93a51862c /mg.c
parentd31e93ed51afbd7df0a0db125e55929ae1cf7552 (diff)
downloadperl-2d4389e49f01a9fd18e4d854b4d31048551328b6.tar.gz
Batch of small 64-bit/long double/large file support tweaks:
- scan for LDBL_DIG - from DBL_DIG and LDBL_DIG select NV_DIG - introduce IVSIZE, UVSIZE, NVSIZE - introduce IV_DIG - remove stdio64 - AIX uses `oslevel` when others use `uname -r` - already AIX 4.2 goes 64-bit - in HP-UX require the 64-bit libc, just the directory isn't enough - group ids are not NVs - #undef USE_LONG_DOUBLE if long double is no better than double - introduce NV_WITHIN_*() and IV_FITS_IN_IV - mention large file support in perldelta - introduce quad TOPpin' and POPpin' - the svcat... buffer was tiny for printing quads in %b - fix the multiplication test in 64bit.t - try to make VMS to comply with all this removal and "introducal" of symbols p4raw-id: //depot/cfgperl@3995
Diffstat (limited to 'mg.c')
-rw-r--r--mg.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/mg.c b/mg.c
index 6418b2754b..fea5fcf2bd 100644
--- a/mg.c
+++ b/mg.c
@@ -1884,7 +1884,7 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
while (isSPACE(*p))
++p;
- PL_egid = I_V(Atol(p));
+ PL_egid = Atol(p);
for (i = 0; i < NGROUPS; ++i) {
while (*p && !isSPACE(*p))
++p;
@@ -1892,7 +1892,7 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
++p;
if (!*p)
break;
- gary[i] = I_V(Atol(p));
+ gary[i] = Atol(p);
}
if (i)
(void)setgroups(i, gary);