provisional MakeMaker patch for VMS

[p5sagit/p5-mst-13.2.git] / embed.pl

diff --git a/embed.pl b/embed.pl
index 20e836f..515fa11 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -1277,7 +1277,7 @@ p |PADOFFSET|find_threadsv|const char *name
 #endif
 p      |OP*    |force_list     |OP* arg
 p      |OP*    |fold_constants |OP* arg
-Afp    |char*  |form           |const char* pat|...
+Afpd   |char*  |form           |const char* pat|...
 Ap     |char*  |vform          |const char* pat|va_list* args
 Ap     |void   |free_tmps
 p      |OP*    |gen_constant_list|OP* o
@@ -2353,8 +2353,10 @@ Apd      |STRLEN |sv_utf8_upgrade_flags|SV *sv|I32 flags
 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
+#if !defined(HAS_SOCKETPAIR) && defined(HAS_SOCKET)
+Ap     |int    |my_socketpair  |int family|int type|int protocol|int fd[2]
+#endif
 
-END_EXTERN_C
 
 #if defined(USE_PERLIO) && !defined(USE_SFIO)
 Ap     |int    |PerlIO_close           |PerlIO *
@@ -2382,3 +2384,6 @@ Ap        |PerlIO *|PerlIO_stdin
 Ap     |PerlIO *|PerlIO_stdout
 Ap     |PerlIO *|PerlIO_stderr
 #endif /* PERLIO_LAYERS */
+
+END_EXTERN_C
+