Add Perl_PerlIO_context_layers() to the public API to fix Win32 builds.

Also, picked up a missed change for pod/perlapi.pod.

p4raw-id: //depot/perl@28264

diff --git a/embed.fnc b/embed.fnc
index 086eb69..bc12ba1 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1504,7 +1504,7 @@ Apn       |int    |my_socketpair  |int family|int type|int protocol|int fd[2]
 pMXE   |SV*    |sv_setsv_cow   |NN SV* dsv|NN SV* ssv
 #endif
 
-op     |const char *|PerlIO_context_layers|NULLOK const char *mode
+Aop    |const char *|PerlIO_context_layers|NULLOK const char *mode
 
 #if defined(USE_PERLIO) && !defined(USE_SFIO)
 Ap     |int    |PerlIO_close           |NULLOK PerlIO *f

diff --git a/embed.h b/embed.h
index 8a0e3d6..df7750c 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -3692,8 +3692,6 @@
 #define sv_setsv_cow(a,b)      Perl_sv_setsv_cow(aTHX_ a,b)
 #endif
 #endif
-#ifdef PERL_CORE
-#endif
 #if defined(USE_PERLIO) && !defined(USE_SFIO)
 #define PerlIO_close(a)                Perl_PerlIO_close(aTHX_ a)
 #define PerlIO_fill(a)         Perl_PerlIO_fill(aTHX_ a)

diff --git a/global.sym b/global.sym
index 88fdd63..c779a04 100644 (file)
--- a/global.sym
+++ b/global.sym
@@ -671,6 +671,7 @@ Perl_sv_copypv
 Perl_my_atof2
 Perl_my_socketpair
 Perl_sv_setsv_cow
+Perl_PerlIO_context_layers
 Perl_PerlIO_close
 Perl_PerlIO_fill
 Perl_PerlIO_fileno

diff --git a/pod/perlapi.pod b/pod/perlapi.pod
index b9eb329..f4af853 100644 (file)
--- a/pod/perlapi.pod
+++ b/pod/perlapi.pod
@@ -4351,7 +4351,7 @@ X<SvSTASH_set>
 
 Set the value of the STASH pointer in sv to val.  See C<SvIV_set>.
 
-       void    SvSTASH_set(SV* sv, STASH* val)
+       void    SvSTASH_set(SV* sv, HV* val)
 
 =for hackers
 Found in file sv.h