Explicitly export Perl_sv_compile_2op_is_broken(), for ext/re.

Frustratingly, because regcomp.c is also compiled as ext/re/re_comp.c, anything
it needs has to be exported. So this has to be X. I'd rather it wasn't.

diff --git a/embed.fnc b/embed.fnc
index edab49d..cf22c78 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1174,7 +1174,10 @@ Apd      |I32    |sv_cmp_locale_flags    |NULLOK SV *const sv1 \
 Amd    |char*  |sv_collxfrm    |NN SV *const sv|NN STRLEN *const nxp
 Apd    |char*  |sv_collxfrm_flags      |NN SV *const sv|NN STRLEN *const nxp|I32 const flags
 #endif
-po     |OP*    |sv_compile_2op_is_broken|NN SV *sv|NN OP **startop \
+: Frustratingly, because regcomp.c is also compiled as ext/re/re_comp.c,
+: anything it needs has to be exported. So this has to be X. I'd rather it
+: wasn't.
+Xpo    |OP*    |sv_compile_2op_is_broken|NN SV *sv|NN OP **startop \
                                |NN const char *code|NN PAD **padp
 ApD    |OP*    |sv_compile_2op |NN SV *sv|NN OP **startop \
                                |NN const char *code|NN PAD **padp

diff --git a/global.sym b/global.sym
index c2cc132..2248d59 100644 (file)
--- a/global.sym
+++ b/global.sym
@@ -613,6 +613,7 @@ Perl_sv_cmp_flags
 Perl_sv_cmp_locale
 Perl_sv_cmp_locale_flags
 Perl_sv_compile_2op
+Perl_sv_compile_2op_is_broken
 Perl_sv_copypv
 Perl_sv_dec
 Perl_sv_dec_nomg