From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 24 Nov 2010 21:55:15 +0000 (+0000)
Subject: Explicitly export Perl_sv_compile_2op_is_broken(), for ext/re.
X-Git-Tag: accepted/trunk/20130322.191538~6605
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=34c313739b9e38cf0e8e75916cc84fcb9c76e24b;p=platform%2Fupstream%2Fperl.git

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