X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.h;h=2885e22b7ddfd6643308079b77aa5ebc6550f6c8;hb=5d44bfff2e970064b1e107e564a35a3e07c5a058;hp=778baac9d76a37ada1c1fbf1184db5866b2ff122;hpb=07be1b83a6b2d24b492356181ddf70e1c7917ae3;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/embed.h b/embed.h
index 778baac..2885e22 100644
--- a/embed.h
+++ b/embed.h
@@ -188,6 +188,11 @@
 #ifdef PERL_CORE
 #define do_execfree		Perl_do_execfree
 #endif
+#ifdef PERL_IN_DOIO_C
+#ifdef PERL_CORE
+#define exec_failed		S_exec_failed
+#endif
+#endif
 #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
 #ifdef PERL_CORE
 #define do_ipcctl		Perl_do_ipcctl
@@ -2363,6 +2368,11 @@
 #ifdef PERL_CORE
 #define do_execfree()		Perl_do_execfree(aTHX)
 #endif
+#ifdef PERL_IN_DOIO_C
+#ifdef PERL_CORE
+#define exec_failed(a,b,c)	S_exec_failed(aTHX_ a,b,c)
+#endif
+#endif
 #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
 #ifdef PERL_CORE
 #define do_ipcctl(a,b,c)	Perl_do_ipcctl(aTHX_ a,b,c)