X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=epoc%2Fepocish.h;h=bd364ec563f9793c0c9c443401e770af2d9e5df4;hb=993f042350da76bc3fd9ee9391fd43c55e148ad4;hp=a971a8e6c7bcfaca167833304ed89333717a6982;hpb=b089116590f5bd8ca52e6ccd2a029c8fc0abb2ae;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/epoc/epocish.h b/epoc/epocish.h
index a971a8e..bd364ec 100644
--- a/epoc/epocish.h
+++ b/epoc/epocish.h
@@ -107,12 +107,14 @@
 
 
 /* epocemx setenv bug workaround */
-#ifndef PERL_SYS_INIT
-#    define PERL_SYS_INIT(c,v)    MALLOC_CHECK_TAINT2(*c,*v) putenv(".dummy=foo"); putenv(".dummy"); MALLOC_INIT
+#ifndef PERL_SYS_INIT_BODY
+#    define PERL_SYS_INIT_BODY(c,v)					   \
+	MALLOC_CHECK_TAINT2(*c,*v) putenv(".dummy=foo"); putenv(".dummy"); \
+	PERLIO_INIT; MALLOC_INIT
 #endif
 
-#ifndef PERL_SYS_TERM
-#define PERL_SYS_TERM()		MALLOC_TERM
+#ifndef PERL_SYS_TERM_BODY
+#define PERL_SYS_TERM_BODY()	PERLIO_TERM; MALLOC_TERM
 #endif
 
 #define BIT_BUCKET "/dev/null"