summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorPaul "LeoNerd" Evans <leonerd@leonerd.org.uk>2021-05-31 22:35:40 +0100
committerPaul Evans <leonerd@leonerd.org.uk>2021-06-02 00:29:54 +0100
commiteb7e169eaa8ff0e7e9a629f87889b08c355568e1 (patch)
tree50b61983fb3eb7854cb0b1933fc41007a37f95d2 /pp_sys.c
parent499aa13271ff03425a8258615a0702c5b830be8b (diff)
downloadperl-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.c28
1 files changed, 14 insertions, 14 deletions
diff --git a/pp_sys.c b/pp_sys.c
index 7d0af1f43e..9d5d3909de 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -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(&timesbuf);
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);