X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=mpeix%2Fmpeixish.h;h=f4ce38ebb337364321bb059e2a71de7ded37a245;hb=433d4b0fb3195bdf6cc90be8b502b4308c90d578;hp=165aae7f9ea4050437152d436be0629c30275d5b;hpb=f382e41b709944009ae4d545ba1b94e4ddc6a66e;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/mpeix/mpeixish.h b/mpeix/mpeixish.h
index 165aae7..f4ce38e 100644
--- a/mpeix/mpeixish.h
+++ b/mpeix/mpeixish.h
@@ -110,12 +110,12 @@
 #define Fflush(fp)         fflush(fp)
 #define Mkdir(path,mode)   mkdir((path),(mode))
 
-#ifndef PERL_SYS_INIT
-#  define PERL_SYS_INIT(c,v)	PERL_FPU_INIT MALLOC_INIT
+#ifndef PERL_SYS_INIT_BODY
+#  define PERL_SYS_INIT_BODY(c,v) PERL_FPU_INIT; 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"