Regen headers

p4raw-id: //depot/perl@25954

diff --git a/global.sym b/global.sym
index 31123c1..d43ef45 100644 (file)
--- a/global.sym
+++ b/global.sym
@@ -682,6 +682,7 @@ Perl_PerlIO_get_cnt
 Perl_PerlIO_stdin
 Perl_PerlIO_stdout
 Perl_PerlIO_stderr
+Perl_pad_push
 Perl_save_set_svflags
 Perl_hv_assert
 Perl_hv_scalar

diff --git a/opcode.h b/opcode.h
index 56d6b57..3964c8d 100644 (file)
--- a/opcode.h
+++ b/opcode.h
@@ -1646,7 +1646,7 @@ EXT const U32 PL_opargs[] = {
        0x00017604,     /* pop */
        0x00017604,     /* shift */
        0x0004691d,     /* unshift */
-       0x0005a801,     /* sort */
+       0x0005a841,     /* sort */
        0x00004809,     /* reverse */
        0x0004a841,     /* grepstart */
        0x00000648,     /* grepwhile */

diff --git a/pod/perlapi.pod b/pod/perlapi.pod
index 38c5daf..6a1bf2b 100644 (file)
--- a/pod/perlapi.pod
+++ b/pod/perlapi.pod
@@ -973,42 +973,6 @@ cope with complex macro expressions. Always use the macro instead.
 =for hackers
 Found in file mathoms.c
 
-=item utf8n_to_uvchr
-X<utf8n_to_uvchr>
-
-flags
-
-Returns the native character value of the first character in the string 
-C<s>
-which is assumed to be in UTF-8 encoding; C<retlen> will be set to the
-length, in bytes, of that character.
-
-Allows length and flags to be passed to low level routine.
-
-       UV      utf8n_to_uvchr(const U8 *s, STRLEN curlen, STRLEN *retlen, U32 flags)
-
-=for hackers
-Found in file mathoms.c
-
-=item uvchr_to_utf8
-X<uvchr_to_utf8>
-
-Adds the UTF-8 representation of the Native codepoint C<uv> to the end
-of the string C<d>; C<d> should be have at least C<UTF8_MAXBYTES+1> free
-bytes available. The return value is the pointer to the byte after the
-end of the new character. In other words,
-
-    d = uvchr_to_utf8(d, uv);
-
-is the recommended wide native character-aware way of saying
-
-    *(d++) = uv;
-
-       U8*     uvchr_to_utf8(U8 *d, UV uv)
-
-=for hackers
-Found in file mathoms.c
-
 
 =back
 
@@ -2456,6 +2420,55 @@ Found in file util.c
 
 =back
 
+=head1 Multicall Functions
+
+=over 8
+
+=item dMULTICALL
+X<dMULTICALL>
+
+Declare local variables for a multicall. See L<perlcall/Lightweight Callbacks>.
+
+               dMULTICALL;
+
+=for hackers
+Found in file cop.h
+
+=item MULTICALL
+X<MULTICALL>
+
+Make a lightweight callback. See L<perlcall/Lightweight Callbacks>.
+
+               MULTICALL;
+
+=for hackers
+Found in file cop.h
+
+=item POP_MULTICALL
+X<POP_MULTICALL>
+
+Closing bracket for a lightweight callback.
+See L<perlcall/Lightweight Callbacks>.
+
+               POP_MULTICALL;
+
+=for hackers
+Found in file cop.h
+
+=item PUSH_MULTICALL
+X<PUSH_MULTICALL>
+
+Opening bracket for a lightweight callback.
+See L<perlcall/Lightweight Callbacks>.
+
+               PUSH_MULTICALL;
+
+=for hackers
+Found in file cop.h
+
+
+=back
+
 =head1 Numeric functions
 
 =over 8
@@ -6062,6 +6075,23 @@ The first character of the uppercased version is returned
 =for hackers
 Found in file utf8.c
 
+=item utf8n_to_uvchr
+X<utf8n_to_uvchr>
+
+flags
+
+Returns the native character value of the first character in the string 
+C<s>
+which is assumed to be in UTF-8 encoding; C<retlen> will be set to the
+length, in bytes, of that character.
+
+Allows length and flags to be passed to low level routine.
+
+       UV      utf8n_to_uvchr(const U8 *s, STRLEN curlen, STRLEN *retlen, U32 flags)
+
+=for hackers
+Found in file utf8.c
+
 =item utf8n_to_uvuni
 X<utf8n_to_uvuni>
 
@@ -6178,6 +6208,25 @@ returned and retlen is set, if possible, to -1.
 =for hackers
 Found in file utf8.c
 
+=item uvchr_to_utf8
+X<uvchr_to_utf8>
+
+Adds the UTF-8 representation of the Native codepoint C<uv> to the end
+of the string C<d>; C<d> should be have at least C<UTF8_MAXBYTES+1> free
+bytes available. The return value is the pointer to the byte after the
+end of the new character. In other words,
+
+    d = uvchr_to_utf8(d, uv);
+
+is the recommended wide native character-aware way of saying
+
+    *(d++) = uv;
+
+       U8*     uvchr_to_utf8(U8 *d, UV uv)
+
+=for hackers
+Found in file utf8.c
+
 =item uvuni_to_utf8_flags
 X<uvuni_to_utf8_flags>
 

diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index 930a6cb..5bc120b 100644 (file)
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -762,6 +762,7 @@ you tried to jump out of a sort() block or subroutine, which is a no-no.
 See L<perlfunc/goto>.
 
 =item Can't goto subroutine from a sort sub (or similar callback)
+
 (F) The "goto subroutine" call can't be used to jump out of the
 comparison sub for a sort(), or from a similar callback (such
 as the reduce() function in List::Util).