Regen headers.

p4raw-id: //depot/perl@7123

5 files changed, 31 insertions, 10 deletions

diff --git a/embed.h b/embed.h
index 404acfa20f..50a9d9e071 100644
--- a/embed.h
+++ b/embed.h
@@ -1177,6 +1177,7 @@
 #define ck_spair		Perl_ck_spair
 #define ck_split		Perl_ck_split
 #define ck_subr			Perl_ck_subr
+#define ck_substr		Perl_ck_substr
 #define ck_svconst		Perl_ck_svconst
 #define ck_trunc		Perl_ck_trunc
 #define pp_aassign		Perl_pp_aassign
@@ -2628,6 +2629,7 @@
 #define ck_spair(a)		Perl_ck_spair(aTHX_ a)
 #define ck_split(a)		Perl_ck_split(aTHX_ a)
 #define ck_subr(a)		Perl_ck_subr(aTHX_ a)
+#define ck_substr(a)		Perl_ck_substr(aTHX_ a)
 #define ck_svconst(a)		Perl_ck_svconst(aTHX_ a)
 #define ck_trunc(a)		Perl_ck_trunc(aTHX_ a)
 #define pp_aassign()		Perl_pp_aassign(aTHX)
@@ -5098,6 +5100,8 @@
 #define ck_split		Perl_ck_split
 #define Perl_ck_subr		CPerlObj::Perl_ck_subr
 #define ck_subr			Perl_ck_subr
+#define Perl_ck_substr		CPerlObj::Perl_ck_substr
+#define ck_substr		Perl_ck_substr
 #define Perl_ck_svconst		CPerlObj::Perl_ck_svconst
 #define ck_svconst		Perl_ck_svconst
 #define Perl_ck_trunc		CPerlObj::Perl_ck_trunc
diff --git a/opcode.h b/opcode.h
index 513343a52f..8dc8b7ae6b 100644
--- a/opcode.h
+++ b/opcode.h
@@ -1205,7 +1205,7 @@ EXT OP * (CPERLscope(*PL_check)[]) (pTHX_ OP *op) = {
 	MEMBER_TO_FPTR(Perl_ck_fun),	/* oct */
 	MEMBER_TO_FPTR(Perl_ck_fun),	/* abs */
 	MEMBER_TO_FPTR(Perl_ck_lengthconst),	/* length */
-	MEMBER_TO_FPTR(Perl_ck_fun),	/* substr */
+	MEMBER_TO_FPTR(Perl_ck_substr),	/* substr */
 	MEMBER_TO_FPTR(Perl_ck_fun),	/* vec */
 	MEMBER_TO_FPTR(Perl_ck_index),	/* index */
 	MEMBER_TO_FPTR(Perl_ck_index),	/* rindex */
diff --git a/pod/perlapi.pod b/pod/perlapi.pod
index 78d6fa4010..98abdc1d07 100644
--- a/pod/perlapi.pod
+++ b/pod/perlapi.pod
@@ -1201,7 +1201,7 @@ Found in file sv.c
 Creates a new SV.  A non-zero C<len> parameter indicates the number of
 bytes of preallocated string space the SV should have.  An extra byte for a
 tailing NUL is also reserved.  (SvPOK is not set for the SV even if string
-space is allocated.)  The reference count for the new SV is set to 1. 
+space is allocated.)  The reference count for the new SV is set to 1.
 C<id> is an integer id between 0 and 1299 (used to identify leaks).
 
 	SV*	NEWSV(int id, STRLEN len)
@@ -2355,19 +2355,19 @@ false, defined or undefined.  Does not handle 'get' magic.
 =for hackers
 Found in file sv.h
 
-=item SvTYPE
-
-Returns the type of the SV.  See C<svtype>.
+=item svtype
 
-	svtype	SvTYPE(SV* sv)
+An enum of flags for Perl types.  These are found in the file B<sv.h> 
+in the C<svtype> enum.  Test these flags with the C<SvTYPE> macro.
 
 =for hackers
 Found in file sv.h
 
-=item svtype
+=item SvTYPE
 
-An enum of flags for Perl types.  These are found in the file B<sv.h> 
-in the C<svtype> enum.  Test these flags with the C<SvTYPE> macro.
+Returns the type of the SV.  See C<svtype>.
+
+	svtype	SvTYPE(SV* sv)
 
 =for hackers
 Found in file sv.h
@@ -3209,13 +3209,28 @@ which is assumed to be in UTF8 encoding; C<retlen> will be set to the
 length, in bytes, of that character, and the pointer C<s> will be
 advanced to the end of the character.
 
+If C<s> does not point to a well-formed UTF8 character, an optional UTF8
+warning is produced.
+
+	U8* s	utf8_to_uv(I32 *retlen)
+
+=for hackers
+Found in file utf8.c
+
+=item utf8_to_uv_chk
+
+Returns the character value of the first character in the string C<s>
+which is assumed to be in UTF8 encoding; C<retlen> will be set to the
+length, in bytes, of that character, and the pointer C<s> will be
+advanced to the end of the character.
+
 If C<s> does not point to a well-formed UTF8 character, the behaviour
 is dependent on the value of C<checking>: if this is true, it is
 assumed that the caller will raise a warning, and this function will
 set C<retlen> to C<-1> and return. If C<checking> is not true, an optional UTF8
 warning is produced.
 
-	U8* s	utf8_to_uv(I32 *retlen, I32 checking)
+	U8* s	utf8_to_uv_chk(I32 *retlen, I32 checking)
 
 =for hackers
 Found in file utf8.c
diff --git a/pp.sym b/pp.sym
index 0e6c056611..42b29f6967 100644
--- a/pp.sym
+++ b/pp.sym
@@ -40,6 +40,7 @@ Perl_ck_sort
 Perl_ck_spair
 Perl_ck_split
 Perl_ck_subr
+Perl_ck_substr
 Perl_ck_svconst
 Perl_ck_trunc
 Perl_pp_null
diff --git a/pp_proto.h b/pp_proto.h
index 4ce9d74594..c249ecbdd7 100644
--- a/pp_proto.h
+++ b/pp_proto.h
@@ -39,6 +39,7 @@ PERL_CKDEF(Perl_ck_sort)
 PERL_CKDEF(Perl_ck_spair)
 PERL_CKDEF(Perl_ck_split)
 PERL_CKDEF(Perl_ck_subr)
+PERL_CKDEF(Perl_ck_substr)
 PERL_CKDEF(Perl_ck_svconst)
 PERL_CKDEF(Perl_ck_trunc)