From d070ff45303f31f7ea3c355a42984d1c652a0faf Mon Sep 17 00:00:00 2001 From: Steve Peters Date: Sun, 21 May 2006 03:47:18 +0000 Subject: [PATCH] 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 --- embed.fnc | 2 +- embed.h | 2 -- global.sym | 1 + pod/perlapi.pod | 2 +- 4 files changed, 3 insertions(+), 4 deletions(-) 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 Set the value of the STASH pointer in sv to val. See C. - void SvSTASH_set(SV* sv, STASH* val) + void SvSTASH_set(SV* sv, HV* val) =for hackers Found in file sv.h -- 2.7.4