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

diff --git a/epoc/epocish.h b/epoc/epocish.h
index a7ef418..a971a8e 100644
--- a/epoc/epocish.h
+++ b/epoc/epocish.h
@@ -108,7 +108,7 @@
 
 /* epocemx setenv bug workaround */
 #ifndef PERL_SYS_INIT
-#    define PERL_SYS_INIT(c,v)    putenv(".dummy=foo"); putenv(".dummy"); MALLOC_INIT
+#    define PERL_SYS_INIT(c,v)    MALLOC_CHECK_TAINT2(*c,*v) putenv(".dummy=foo"); putenv(".dummy"); MALLOC_INIT
 #endif
 
 #ifndef PERL_SYS_TERM