This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove regexec_flags from public API
authorKarl Williamson <khw@cpan.org>
Sat, 29 Aug 2020 20:05:17 +0000 (14:05 -0600)
committerKarl Williamson <khw@cpan.org>
Sat, 5 Sep 2020 16:15:54 +0000 (10:15 -0600)
This should only be called as part of a regex engine, and hence is not
an API function.

embed.fnc

index 347ff70..da036cc 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1947,7 +1947,7 @@ Cp        |char*  |re_intuit_start|NN REGEXP * const rx \
                                |const U32 flags \
                                |NULLOK re_scream_pos_data *data
 Cp     |SV*    |re_intuit_string|NN REGEXP  *const r
                                |const U32 flags \
                                |NULLOK re_scream_pos_data *data
 Cp     |SV*    |re_intuit_string|NN REGEXP  *const r
-Ap     |I32    |regexec_flags  |NN REGEXP *const rx|NN char *stringarg \
+Cp     |I32    |regexec_flags  |NN REGEXP *const rx|NN char *stringarg \
                                |NN char *strend|NN char *strbeg \
                                |SSize_t minend|NN SV *sv \
                                |NULLOK void *data|U32 flags
                                |NN char *strend|NN char *strbeg \
                                |SSize_t minend|NN SV *sv \
                                |NULLOK void *data|U32 flags