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

diff --git a/epoc/epocish.h b/epoc/epocish.h
index 34121ef..bd364ec 100644
--- a/epoc/epocish.h
+++ b/epoc/epocish.h
@@ -107,14 +107,14 @@
 
 
 /* epocemx setenv bug workaround */
-#ifndef PERL_SYS_INIT
-#    define PERL_SYS_INIT(c,v)						   \
+#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()	PERLIO_TERM; MALLOC_TERM
+#ifndef PERL_SYS_TERM_BODY
+#define PERL_SYS_TERM_BODY()	PERLIO_TERM; MALLOC_TERM
 #endif
 
 #define BIT_BUCKET "/dev/null"