diff options
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); |