1 files changed, 5 insertions, 0 deletions
diff --git a/perlio.c b/perlio.c
index 1a21e25bd6..8e8b859e5d 100644
--- a/perlio.c
+++ b/perlio.c
@@ -38,6 +38,11 @@
 #define PERL_IN_PERLIO_C
 #include "perl.h"
 
+#ifdef PERL_IMPLICIT_CONTEXT
+#undef dSYS
+#define dSYS dTHX
+#endif
+
 #include "XSUB.h"
 
 int