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 /ext/File-Glob | |
parent | 499aa13271ff03425a8258615a0702c5b830be8b (diff) | |
download | perl-eb7e169eaa8ff0e7e9a629f87889b08c355568e1.tar.gz |
Rename G_ARRAY to G_LIST; provide back-compat when not(PERL_CORE)
Diffstat (limited to 'ext/File-Glob')
-rw-r--r-- | ext/File-Glob/Glob.pm | 2 | ||||
-rw-r--r-- | ext/File-Glob/Glob.xs | 8 |
2 files changed, 5 insertions, 5 deletions
diff --git a/ext/File-Glob/Glob.pm b/ext/File-Glob/Glob.pm index b7e71abcd3..29025208d9 100644 --- a/ext/File-Glob/Glob.pm +++ b/ext/File-Glob/Glob.pm @@ -35,7 +35,7 @@ $EXPORT_TAGS{bsd_glob} = [@{$EXPORT_TAGS{glob}}]; @EXPORT_OK = (@{$EXPORT_TAGS{'glob'}}, 'csh_glob'); -$VERSION = '1.33'; +$VERSION = '1.34'; sub import { require Exporter; diff --git a/ext/File-Glob/Glob.xs b/ext/File-Glob/Glob.xs index 9779d54ca6..4e1ae80b72 100644 --- a/ext/File-Glob/Glob.xs +++ b/ext/File-Glob/Glob.xs @@ -108,7 +108,7 @@ iterate(pTHX_ bool(*globber)(pTHX_ AV *entries, const char *pat, STRLEN len, boo } if (!IS_SAFE_SYSCALL(pat, len, "pattern", "glob")) { - if (gimme != G_ARRAY) + if (gimme != G_LIST) PUSHs(&PL_sv_undef); PUTBACK; return; @@ -120,7 +120,7 @@ iterate(pTHX_ bool(*globber)(pTHX_ AV *entries, const char *pat, STRLEN len, boo } /* chuck it all out, quick or slow */ - if (gimme == G_ARRAY) { + if (gimme == G_LIST) { if (!on_stack && AvFILLp(entries) + 1) { EXTEND(SP, AvFILLp(entries)+1); Copy(AvARRAY(entries), SP+1, AvFILLp(entries)+1, SV *); @@ -286,7 +286,7 @@ csh_glob(pTHX_ AV *entries, const char *pat, STRLEN len, bool is_utf8) dMARK; dORIGMARK; /* short-circuit here for a fairly common case */ - if (!patav && gimme == G_ARRAY) { PUTBACK; return TRUE; } + if (!patav && gimme == G_LIST) { PUTBACK; return TRUE; } while (++MARK <= SP) av_push(entries, SvREFCNT_inc_simple_NN(*MARK)); @@ -323,7 +323,7 @@ doglob_iter_wrapper(pTHX_ AV *entries, const char *pattern, STRLEN len, bool is_ { dMARK; dORIGMARK; - if (GIMME_V == G_ARRAY) { PUTBACK; return TRUE; } + if (GIMME_V == G_LIST) { PUTBACK; return TRUE; } sv_upgrade((SV *)entries, SVt_PVAV); while (++MARK <= SP) av_push(entries, SvREFCNT_inc_simple_NN(*MARK)); |