Re: Questions about Tie::Array and perl modules

[p5sagit/p5-mst-13.2.git] / perlapi.c

diff --git a/perlapi.c b/perlapi.c
index 2fca6bc..39a13ba 100644 (file)
--- a/perlapi.c
+++ b/perlapi.c
@@ -1,4 +1,4 @@
-/* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!! 
+/* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
    This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h,
    perlvars.h and thrdvar.h.  Any changes made here will be lost!
 */
@@ -2015,6 +2015,13 @@ Perl_newSVpvn(pTHXo_ const char* s, STRLEN len)
     return ((CPerlObj*)pPerl)->Perl_newSVpvn(s, len);
 }
 
+#undef  Perl_newSVpvn_share
+SV*
+Perl_newSVpvn_share(pTHXo_ const char* s, STRLEN len, U32 hash)
+{
+    return ((CPerlObj*)pPerl)->Perl_newSVpvn_share(s, len, hash);
+}
+
 #undef  Perl_newSVpvf
 SV*
 Perl_newSVpvf(pTHXo_ const char* pat, ...)
@@ -3359,7 +3366,7 @@ Perl_utf8_hop(pTHXo_ U8 *s, I32 off)
 
 #undef  Perl_utf8_to_bytes
 U8*
-Perl_utf8_to_bytes(pTHXo_ U8 *s, STRLEN len)
+Perl_utf8_to_bytes(pTHXo_ U8 *s, STRLEN *len)
 {
     return ((CPerlObj*)pPerl)->Perl_utf8_to_bytes(s, len);
 }
@@ -3378,6 +3385,13 @@ Perl_utf8_to_uv(pTHXo_ U8 *s, I32* retlen)
     return ((CPerlObj*)pPerl)->Perl_utf8_to_uv(s, retlen);
 }
 
+#undef  Perl_utf8_to_uv_chk
+UV
+Perl_utf8_to_uv_chk(pTHXo_ U8 *s, I32* retlen, bool checking)
+{
+    return ((CPerlObj*)pPerl)->Perl_utf8_to_uv_chk(s, retlen, checking);
+}
+
 #undef  Perl_uv_to_utf8
 U8*
 Perl_uv_to_utf8(pTHXo_ U8 *d, UV uv)