In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/736b9b481f80d4b0194e502be5099ef43769c403?hp=54bdcd8ec4c7b2111381943f4fdd4a07d3fe1bf9>
- Log ----------------------------------------------------------------- commit 736b9b481f80d4b0194e502be5099ef43769c403 Author: Karl Williamson <[email protected]> Date: Mon Mar 9 11:58:34 2015 -0600 op_reg_common.h: Add comment M op_reg_common.h commit e6cc39caa0e031d6a42625049e59c6e5ecba7e51 Author: Karl Williamson <[email protected]> Date: Mon Mar 9 11:55:58 2015 -0600 embed.fnc: Change _warn_problematic_locale() function from public Spotted by Daniel Dragan M embed.fnc M embed.h ----------------------------------------------------------------------- Summary of changes: embed.fnc | 2 +- embed.h | 2 +- op_reg_common.h | 1 + 3 files changed, 3 insertions(+), 2 deletions(-) diff --git a/embed.fnc b/embed.fnc index 52229fc..eecbbd5 100644 --- a/embed.fnc +++ b/embed.fnc @@ -1134,7 +1134,7 @@ ApOM |int |init_i18nl14n |int printwarn ApM |char* |my_strerror |const int errnum ApOM |void |new_collate |NULLOK const char* newcoll ApOM |void |new_ctype |NN const char* newctype -ApMn |void |_warn_problematic_locale +EXpMn |void |_warn_problematic_locale ApOM |void |new_numeric |NULLOK const char* newcoll Ap |void |set_numeric_local Ap |void |set_numeric_radix diff --git a/embed.h b/embed.h index 72edd25..e6c665d 100644 --- a/embed.h +++ b/embed.h @@ -45,7 +45,6 @@ #define _to_utf8_lower_flags(a,b,c,d) Perl__to_utf8_lower_flags(aTHX_ a,b,c,d) #define _to_utf8_title_flags(a,b,c,d) Perl__to_utf8_title_flags(aTHX_ a,b,c,d) #define _to_utf8_upper_flags(a,b,c,d) Perl__to_utf8_upper_flags(aTHX_ a,b,c,d) -#define _warn_problematic_locale Perl__warn_problematic_locale #define amagic_call(a,b,c,d) Perl_amagic_call(aTHX_ a,b,c,d) #define amagic_deref_call(a,b) Perl_amagic_deref_call(aTHX_ a,b) #define append_utf8_from_native_byte S_append_utf8_from_native_byte @@ -898,6 +897,7 @@ #endif #if defined(PERL_CORE) || defined(PERL_EXT) #define _get_encoding() Perl__get_encoding(aTHX) +#define _warn_problematic_locale Perl__warn_problematic_locale #define av_reify(a) Perl_av_reify(aTHX_ a) #define current_re_engine() Perl_current_re_engine(aTHX) #define cv_ckproto_len_flags(a,b,c,d,e) Perl_cv_ckproto_len_flags(aTHX_ a,b,c,d,e) diff --git a/op_reg_common.h b/op_reg_common.h index 99f9f9d..6b5841e 100644 --- a/op_reg_common.h +++ b/op_reg_common.h @@ -105,6 +105,7 @@ get_regex_charset(const U32 flags) #define RXf_PMf_FLAGCOPYMASK (RXf_PMf_COMPILETIME|RXf_PMf_SPLIT) #if 0 /* Temporary to get Jenkins happy again */ +See thread starting at http://nntp.perl.org/group/perl.perl5.porters/220710 /* Exclude win32 because it can't cope with I32_MAX definition */ #ifndef WIN32 # if RXf_PMf_COMPILETIME > I32_MAX -- Perl5 Master Repository
