Put PerlIO stuff inside EXTERN C

p4raw-id: //depot/perlio@13853

diff --git a/embed.pl b/embed.pl
index 20e836f..26758eb 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -2354,7 +2354,6 @@ Apd       |char*  |sv_pvn_force_flags|SV* sv|STRLEN* lp|I32 flags
 Apd    |char*  |sv_2pv_flags   |SV* sv|STRLEN* lp|I32 flags
 Ap     |char*  |my_atof2       |const char *s|NV* value
 
-END_EXTERN_C
 
 #if defined(USE_PERLIO) && !defined(USE_SFIO)
 Ap     |int    |PerlIO_close           |PerlIO *
@@ -2382,3 +2381,6 @@ Ap        |PerlIO *|PerlIO_stdin
 Ap     |PerlIO *|PerlIO_stdout
 Ap     |PerlIO *|PerlIO_stderr
 #endif /* PERLIO_LAYERS */
+
+END_EXTERN_C
+

diff --git a/proto.h b/proto.h
index ca0c8e5..0706e6c 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -1332,7 +1332,6 @@ PERL_CALLCONV char*       Perl_sv_pvn_force_flags(pTHX_ SV* sv, STRLEN* lp, I32 flags)
 PERL_CALLCONV char*    Perl_sv_2pv_flags(pTHX_ SV* sv, STRLEN* lp, I32 flags);
 PERL_CALLCONV char*    Perl_my_atof2(pTHX_ const char *s, NV* value);
 
-END_EXTERN_C
 
 #if defined(USE_PERLIO) && !defined(USE_SFIO)
 PERL_CALLCONV int      Perl_PerlIO_close(pTHX_ PerlIO *);
@@ -1360,3 +1359,6 @@ PERL_CALLCONV PerlIO *    Perl_PerlIO_stdin(pTHX);
 PERL_CALLCONV PerlIO * Perl_PerlIO_stdout(pTHX);
 PERL_CALLCONV PerlIO * Perl_PerlIO_stderr(pTHX);
 #endif /* PERLIO_LAYERS */
+
+END_EXTERN_C
+