embed.fnc: Fix declaration of my_strerror()

This was improperly made public (but the docs indicate it should not be
used by the public).

diff --git a/embed.fnc b/embed.fnc
index 62d8685..8dc61d8 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1258,7 +1258,7 @@ Apd       |CV*    |get_cvn_flags  |NN const char* name|STRLEN len|I32 flags
 EXnpo  |char*  |setlocale      |int category|NULLOK const char* locale
 ApOM   |int    |init_i18nl10n  |int printwarn
 ApOM   |int    |init_i18nl14n  |int printwarn
-ApM    |char*  |my_strerror    |const int errnum
+p      |char*  |my_strerror    |const int errnum
 Xpn    |void   |_warn_problematic_locale
 p      |void   |new_numeric    |NULLOK const char* newcoll
 Xp     |void   |set_numeric_local

diff --git a/embed.h b/embed.h
index 9767841..0cdf036 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -363,7 +363,6 @@
 #define my_popen_list(a,b,c)   Perl_my_popen_list(aTHX_ a,b,c)
 #define my_setenv(a,b)         Perl_my_setenv(aTHX_ a,b)
 #define my_socketpair          Perl_my_socketpair
-#define my_strerror(a)         Perl_my_strerror(aTHX_ a)
 #define my_strftime(a,b,c,d,e,f,g,h,i,j)       Perl_my_strftime(aTHX_ a,b,c,d,e,f,g,h,i,j)
 #define newANONATTRSUB(a,b,c,d)        Perl_newANONATTRSUB(aTHX_ a,b,c,d)
 #define newANONHASH(a)         Perl_newANONHASH(aTHX_ a)
@@ -1331,6 +1330,7 @@
 #define my_clearenv()          Perl_my_clearenv(aTHX)
 #define my_lstat_flags(a)      Perl_my_lstat_flags(aTHX_ a)
 #define my_stat_flags(a)       Perl_my_stat_flags(aTHX_ a)
+#define my_strerror(a)         Perl_my_strerror(aTHX_ a)
 #define my_unexec()            Perl_my_unexec(aTHX)
 #define newATTRSUB_x(a,b,c,d,e,f)      Perl_newATTRSUB_x(aTHX_ a,b,c,d,e,f)
 #define newSTUB(a,b)           Perl_newSTUB(aTHX_ a,b)