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 /universal.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 'universal.c')
| -rw-r--r-- | universal.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/universal.c b/universal.c index 5932767bdf..cce2a87d1c 100644 --- a/universal.c +++ b/universal.c @@ -997,7 +997,7 @@ XS(XS_re_regexp_pattern) /* Houston, we have a regex! */ SV *pattern; - if ( gimme == G_ARRAY ) { + if ( gimme == G_LIST ) { STRLEN left = 0; char reflags[sizeof(INT_PAT_MODS) + MAX_CHARSET_NAME_LENGTH]; const char *fptr; @@ -1044,7 +1044,7 @@ XS(XS_re_regexp_pattern) } } else { /* It ain't a regexp folks */ - if ( gimme == G_ARRAY ) { + if ( gimme == G_LIST ) { /* return the empty list */ XSRETURN_EMPTY; } else { |