We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 8006e92 commit 64b69efCopy full SHA for 64b69ef
perl.c
@@ -2597,7 +2597,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
2597
2598
if (xsinit)
2599
(*xsinit)(aTHX); /* in case linked C routines want magical variables */
2600
-#if defined(VMS) || defined(WIN32) || defined(__CYGWIN__)
+#if defined(VMS) || defined(WIN32) || defined(__CYGWIN__) || defined(__MVS__)
2601
init_os_extras();
2602
#endif
2603
perl.h
@@ -4469,7 +4469,7 @@ intrinsic function, see its documents for more details.
4469
cBOOL(PerlLIO_setmode(fileno(fp), mode) != -1)
4470
4471
4472
-#ifdef __CYGWIN__
+#if defined(__CYGWIN__) || defined(__MVS__)
4473
void init_os_extras(void);
4474
4475
0 commit comments