diff options
| author | Karl Williamson <khw@cpan.org> | 2021-06-16 21:00:34 -0600 |
|---|---|---|
| committer | Leon Timmermans <fawaka@gmail.com> | 2021-06-27 19:55:51 +0200 |
| commit | 31e7fc2343eca7db8530b6ac07c1789262afe3bb (patch) | |
| tree | d022ff25e9558e4cc37515fcd55c031a329e2c33 /perlio.c | |
| parent | 7155ed70c3670762d1de666b8a5d4eeb5fee7631 (diff) | |
| download | perl-31e7fc2343eca7db8530b6ac07c1789262afe3bb.tar.gz | |
perlio.c: Don't wrongly conditionally compile
The code is using '#ifdef EBCDIC' when it has nothing to do with EBCDIC;
but is a proxy for how things work on IBM boxes that use EBCDIC.
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -1991,7 +1991,7 @@ PerlIOBase_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab) SETERRNO(EINVAL, LIB_INVARG); return -1; } -#ifdef EBCDIC +#ifdef __MVS__ /* XXX Perhaps should be be OEMVS instead of __MVS__ */ { /* The mode variable contains one positional parameter followed by * optional keyword parameters. The positional parameters must be @@ -2943,7 +2943,7 @@ PerlIO_importFILE(FILE *stdio, const char *mode) { dTHX; PerlIO *f = NULL; -#ifdef EBCDIC +#ifdef __MVS__ int rc; char filename[FILENAME_MAX]; fldata_t fileinfo; @@ -2952,7 +2952,7 @@ PerlIO_importFILE(FILE *stdio, const char *mode) PerlIOStdio *s; int fd0 = fileno(stdio); if (fd0 < 0) { -#ifdef EBCDIC +#ifdef __MVS__ rc = fldata(stdio,filename,&fileinfo); if(rc != 0){ return NULL; @@ -3000,7 +3000,7 @@ PerlIO_importFILE(FILE *stdio, const char *mode) PerlIOUnix_refcnt_inc(fd0); setfd_cloexec_or_inhexec_by_sysfdness(fd0); } -#ifdef EBCDIC +#ifdef __MVS__ else{ rc = fldata(stdio,filename,&fileinfo); if(rc != 0){ |