mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

Call init_os_extras() on z/OS

Browse Source 
The previous commit added a file and functions for specially dealing
with z/OS.  This commit actually calls the start up one.
This commit is contained in:
Igor Todorovski 2025-05-18 08:40:24 -06:00 committed by Karl Williamson
parent 8006e9296f
commit 64b69ef9f1
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
perl.c
View File

@ -2597,7 +2597,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
if (xsinit)
(*xsinit)(aTHX); /* in case linked C routines want magical variables */
#if defined(VMS) || defined(WIN32) || defined(__CYGWIN__)
#if defined(VMS) || defined(WIN32) || defined(__CYGWIN__) || defined(__MVS__)
init_os_extras();
#endif

2
perl.h
View File

@ -4469,7 +4469,7 @@ intrinsic function, see its documents for more details.
cBOOL(PerlLIO_setmode(fileno(fp), mode) != -1)
#endif
#ifdef __CYGWIN__
#if defined(__CYGWIN__) || defined(__MVS__)
void init_os_extras(void);
#endif