support PERL_IMPLICIT_SYS with MULTIPLICITY/USE_THREADS on

[p5sagit/p5-mst-13.2.git] / XSUB.h

diff --git a/XSUB.h b/XSUB.h
index ae746a6..c2e621c 100644 (file)
--- a/XSUB.h
+++ b/XSUB.h
@@ -128,7 +128,7 @@
 #  define aTHX_                aTHX,
 #endif
 
-#if defined(PERL_CAPI)
+#if (defined(PERL_CAPI) || defined(PERL_IMPLICIT_SYS)) && !defined(PERL_CORE)
 #  ifndef NO_XSLOCKS
 #    undef closedir
 #    undef opendir