This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
embed.fnc: Change _warn_problematic_locale() function from public
authorKarl Williamson <khw@cpan.org>
Mon, 9 Mar 2015 17:55:58 +0000 (11:55 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 9 Mar 2015 18:05:15 +0000 (12:05 -0600)
Spotted by Daniel Dragan

embed.fnc
embed.h

index 52229fc..eecbbd5 100644 (file)
--- 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 (file)
--- 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
 #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)