Skip to content

Commit 64b69ef

Browse files
IgorTodorovskiIBMkhwilliamson
authored andcommitted
Call init_os_extras() on z/OS
The previous commit added a file and functions for specially dealing with z/OS. This commit actually calls the start up one.
1 parent 8006e92 commit 64b69ef

File tree

2 files changed

+2
-2
lines changed

2 files changed

+2
-2
lines changed

perl.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2597,7 +2597,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
25972597

25982598
if (xsinit)
25992599
(*xsinit)(aTHX); /* in case linked C routines want magical variables */
2600-
#if defined(VMS) || defined(WIN32) || defined(__CYGWIN__)
2600+
#if defined(VMS) || defined(WIN32) || defined(__CYGWIN__) || defined(__MVS__)
26012601
init_os_extras();
26022602
#endif
26032603

perl.h

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -4469,7 +4469,7 @@ intrinsic function, see its documents for more details.
44694469
cBOOL(PerlLIO_setmode(fileno(fp), mode) != -1)
44704470
#endif
44714471

4472-
#ifdef __CYGWIN__
4472+
#if defined(__CYGWIN__) || defined(__MVS__)
44734473
void init_os_extras(void);
44744474
#endif
44754475

0 commit comments

Comments
 (0)