Fixed embed.fnc entry for S_forbid_setid() and picked up a change in

pod/perlapi.pod for good measure when regenerating files.

p4raw-id: //depot/perl@27087

diff --git a/embed.fnc b/embed.fnc
index 5bbe566..a1c3d22 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1139,7 +1139,7 @@ Ap        |void   |Slab_Free      |NN void *op
 
 #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
 s      |void   |find_beginning
-s      |void   |forbid_setid   |char flag|int suidscript
+s      |void   |forbid_setid   |const char flag|const int suidscript
 s      |void   |incpush        |NULLOK const char *dir|bool addsubdirs|bool addoldvers|bool usesep|bool canrelocate
 s      |void   |init_interp
 s      |void   |init_ids

diff --git a/pod/perlapi.pod b/pod/perlapi.pod
index a970329..eeabacf 100644 (file)
--- a/pod/perlapi.pod
+++ b/pod/perlapi.pod
@@ -1373,7 +1373,7 @@ Found in file hv.h
 =item HeSVKEY
 X<HeSVKEY>
 
-Returns the key as an C<SV*>, or C<Nullsv> if the hash entry does not
+Returns the key as an C<SV*>, or C<NULL> if the hash entry does not
 contain an C<SV*> key.
 
        SV*     HeSVKEY(HE* he)

diff --git a/proto.h b/proto.h
index 501eefb..aa4808e 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -3173,7 +3173,7 @@ PERL_CALLCONV void        Perl_Slab_Free(pTHX_ void *op)
 
 #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
 STATIC void    S_find_beginning(pTHX);
-STATIC void    S_forbid_setid(pTHX_ char flag, int suidscript);
+STATIC void    S_forbid_setid(pTHX_ const char flag, const int suidscript);
 STATIC void    S_incpush(pTHX_ const char *dir, bool addsubdirs, bool addoldvers, bool usesep, bool canrelocate);
 STATIC void    S_init_interp(pTHX);
 STATIC void    S_init_ids(pTHX);