perldelta updates for 5.12.1

[perl5.git] / embed.fnc

diff --git a/embed.fnc b/embed.fnc
index 01605a9..81427fd 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -236,6 +236,7 @@ Aprd        |void   |croak_sv       |NN SV *baseex
 : croak()'s first parm can be NULL.  Otherwise, mod_perl breaks.
 Afprd  |void   |croak          |NULLOK const char* pat|...
 Aprd   |void   |vcroak         |NULLOK const char* pat|NULLOK va_list* args
+Aprd   |void   |croak_no_modify
 Aprd   |void   |croak_xs_usage |NN const CV *const cv \
                                |NN const char *const params
 
@@ -499,9 +500,14 @@ Abmd       |HE*    |hv_store_ent   |NULLOK HV *hv|NULLOK SV *key|NULLOK SV *val\
 AbmM   |SV**   |hv_store_flags |NULLOK HV *hv|NULLOK const char *key \
                                |I32 klen|NULLOK SV *val|U32 hash|int flags
 Apd    |void   |hv_undef       |NULLOK HV *hv
-AnpP   |I32    |ibcmp          |NN const char* a|NN const char* b|I32 len
-AnpP   |I32    |ibcmp_locale   |NN const char* a|NN const char* b|I32 len
-Apd    |I32    |ibcmp_utf8     |NN const char *s1|NULLOK char **pe1|UV l1 \
+Am     |I32    |ibcmp          |NN const char* a|NN const char* b|I32 len
+AnpP   |I32    |foldEQ         |NN const char* a|NN const char* b|I32 len
+Am     |I32    |ibcmp_locale   |NN const char* a|NN const char* b|I32 len
+AnpP   |I32    |foldEQ_locale  |NN const char* a|NN const char* b|I32 len
+Am     |I32    |ibcmp_utf8     |NN const char *s1|NULLOK char **pe1|UV l1 \
+                               |bool u1|NN const char *s2|NULLOK char **pe2 \
+                               |UV l2|bool u2
+Apd    |I32    |foldEQ_utf8    |NN const char *s1|NULLOK char **pe1|UV l1 \
                                |bool u1|NN const char *s2|NULLOK char **pe2 \
                                |UV l2|bool u2
 #if defined(PERL_IN_DOIO_C) || defined(PERL_DECL_PROT)
@@ -1711,6 +1717,9 @@ s |OP*    |doform         |NN CV *cv|NN GV *gv|NN OP *retop
 sR     |int    |dooneliner     |NN const char *cmd|NN const char *filename
 #  endif
 s      |SV *   |space_join_names_mortal|NN char *const *array
+so     |OP *   |tied_handle_method|NN const char *const methname|NN SV **sp \
+                               |NN IO *const io|NN MAGIC *const mg \
+                               |const U32 flags|...
 #endif
 
 #if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT)