diff options
author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2021-05-31 22:35:40 +0100 |
---|---|---|
committer | Paul Evans <leonerd@leonerd.org.uk> | 2021-06-02 00:29:54 +0100 |
commit | eb7e169eaa8ff0e7e9a629f87889b08c355568e1 (patch) | |
tree | 50b61983fb3eb7854cb0b1933fc41007a37f95d2 /pp_sys.c | |
parent | 499aa13271ff03425a8258615a0702c5b830be8b (diff) | |
download | perl-eb7e169eaa8ff0e7e9a629f87889b08c355568e1.tar.gz |
Rename G_ARRAY to G_LIST; provide back-compat when not(PERL_CORE)
Diffstat (limited to 'pp_sys.c')
-rw-r--r-- | pp_sys.c | 28 |
1 files changed, 14 insertions, 14 deletions
@@ -1280,7 +1280,7 @@ PP(pp_sselect) } PUSHi(nfound); - if (GIMME_V == G_ARRAY && tbuf) { + if (GIMME_V == G_LIST && tbuf) { value = (NV)(timebuf.tv_sec) + (NV)(timebuf.tv_usec) / 1000000.0; mPUSHn(value); @@ -2906,7 +2906,7 @@ PP(pp_stat) } gimme = GIMME_V; - if (gimme != G_ARRAY) { + if (gimme != G_LIST) { if (gimme != G_VOID) XPUSHs(boolSV(max)); RETURN; @@ -4038,9 +4038,9 @@ PP(pp_readdir) if (!(IoFLAGS(io) & IOf_UNTAINT)) SvTAINTED_on(sv); mXPUSHs(sv); - } while (gimme == G_ARRAY); + } while (gimme == G_LIST); - if (!dp && gimme != G_ARRAY) + if (!dp && gimme != G_LIST) RETPUSHUNDEF; RETURN; @@ -4048,7 +4048,7 @@ PP(pp_readdir) nope: if (!errno) SETERRNO(EBADF,RMS_ISI); - if (gimme == G_ARRAY) + if (gimme == G_LIST) RETURN; else RETPUSHUNDEF; @@ -4673,7 +4673,7 @@ PP(pp_tms) (void)PerlProc_times(×buf); mPUSHn(((NV)timesbuf.tms_utime)/(NV)PL_clocktick); - if (GIMME_V == G_ARRAY) { + if (GIMME_V == G_LIST) { mPUSHn(((NV)timesbuf.tms_stime)/(NV)PL_clocktick); mPUSHn(((NV)timesbuf.tms_cutime)/(NV)PL_clocktick); mPUSHn(((NV)timesbuf.tms_cstime)/(NV)PL_clocktick); @@ -4683,7 +4683,7 @@ PP(pp_tms) dSP; mPUSHn(0.0); EXTEND(SP, 4); - if (GIMME_V == G_ARRAY) { + if (GIMME_V == G_LIST) { mPUSHn(0.0); mPUSHn(0.0); mPUSHn(0.0); @@ -4766,7 +4766,7 @@ PP(pp_gmtime) "%s(%.0" NVff ") failed", opname, when); } - if (GIMME_V != G_ARRAY) { /* scalar context */ + if (GIMME_V != G_LIST) { /* scalar context */ EXTEND(SP, 1); if (err == NULL) RETPUSHUNDEF; @@ -5017,7 +5017,7 @@ PP(pp_ghostent) } #endif - if (GIMME_V != G_ARRAY) { + if (GIMME_V != G_LIST) { PUSHs(sv = sv_newmortal()); if (hent) { if (which == OP_GHBYNAME) { @@ -5104,7 +5104,7 @@ PP(pp_gnetent) #endif EXTEND(SP, 4); - if (GIMME_V != G_ARRAY) { + if (GIMME_V != G_LIST) { PUSHs(sv = sv_newmortal()); if (nent) { if (which == OP_GNBYNAME) @@ -5168,7 +5168,7 @@ PP(pp_gprotoent) #endif EXTEND(SP, 3); - if (GIMME_V != G_ARRAY) { + if (GIMME_V != G_LIST) { PUSHs(sv = sv_newmortal()); if (pent) { if (which == OP_GPBYNAME) @@ -5234,7 +5234,7 @@ PP(pp_gservent) #endif EXTEND(SP, 4); - if (GIMME_V != G_ARRAY) { + if (GIMME_V != G_LIST) { PUSHs(sv = sv_newmortal()); if (sent) { if (which == OP_GSBYNAME) { @@ -5470,7 +5470,7 @@ PP(pp_gpwent) } EXTEND(SP, 10); - if (GIMME_V != G_ARRAY) { + if (GIMME_V != G_LIST) { PUSHs(sv = sv_newmortal()); if (pwent) { if (which == OP_GPWNAM) @@ -5612,7 +5612,7 @@ PP(pp_ggrent) #endif EXTEND(SP, 4); - if (GIMME_V != G_ARRAY) { + if (GIMME_V != G_LIST) { SV * const sv = sv_newmortal(); PUSHs(sv); |