provisional MakeMaker patch for VMS

[p5sagit/p5-mst-13.2.git] / proto.h

diff --git a/proto.h b/proto.h
index ca0c8e5..fee2f9f 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -1331,8 +1331,10 @@ PERL_CALLCONV STRLEN     Perl_sv_utf8_upgrade_flags(pTHX_ SV *sv, I32 flags);
 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);
+#if !defined(HAS_SOCKETPAIR) && defined(HAS_SOCKET)
+PERL_CALLCONV int      Perl_my_socketpair(pTHX_ int family, int type, int protocol, int fd[2]);
+#endif
 
-END_EXTERN_C
 
 #if defined(USE_PERLIO) && !defined(USE_SFIO)
 PERL_CALLCONV int      Perl_PerlIO_close(pTHX_ PerlIO *);
@@ -1360,3 +1362,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
+