Rename G_ARRAY to G_LIST; provide back-compat when not(PERL_CORE)

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