From: Steve Peters <steve@fisharerojo.org>
Date: Sun, 21 May 2006 03:47:18 +0000 (+0000)
Subject: Add Perl_PerlIO_context_layers() to the public API to fix Win32 builds.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d070ff45303f31f7ea3c355a42984d1c652a0faf;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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
--- 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