Re: [perl #18872] File::Basename example misleading

[p5sagit/p5-mst-13.2.git] / embed.fnc

diff --git a/embed.fnc b/embed.fnc
index 1866e1f..b62ec99 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -408,6 +408,7 @@ p   |int    |magic_setmglob |SV* sv|MAGIC* mg
 p      |int    |magic_setnkeys |SV* sv|MAGIC* mg
 p      |int    |magic_setpack  |SV* sv|MAGIC* mg
 p      |int    |magic_setpos   |SV* sv|MAGIC* mg
+p      |int    |magic_setregexp|SV* sv|MAGIC* mg
 p      |int    |magic_setsig   |SV* sv|MAGIC* mg
 p      |int    |magic_setsubstr|SV* sv|MAGIC* mg
 p      |int    |magic_settaint |SV* sv|MAGIC* mg
@@ -726,7 +727,7 @@ Ap  |void   |sv_dump        |SV* sv
 Apd    |bool   |sv_derived_from|SV* sv|const char* name
 Apd    |I32    |sv_eq          |SV* sv1|SV* sv2
 Apd    |void   |sv_free        |SV* sv
-po     |void   |sv_free2       |SV* sv
+Apo    |void   |sv_free2       |SV* sv
 pd     |void   |sv_free_arenas
 Apd    |char*  |sv_gets        |SV* sv|PerlIO* fp|I32 append
 Apd    |char*  |sv_grow        |SV* sv|STRLEN newlen
@@ -944,7 +945,7 @@ Ap |char * |custom_op_name|OP* op
 Ap |char * |custom_op_desc|OP* op
 
 #if defined(PERL_COPY_ON_WRITE)
-pM     |int    |sv_release_IVX |SV *sv
+ApM    |int    |sv_release_IVX |SV *sv
 #endif
 
 Adp    |void   |sv_nosharing   |SV *