diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-30 05:44:21 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-30 05:44:21 +0000 |
| commit | c39cd00800303e8967294e98aa4c427a1872a251 (patch) | |
| tree | ee7d7e65e692fcdfd54f0c6a7b3746a07023aa6e /win32/win32.h | |
| parent | 2dc4c65bf2b389aa184a8e8590cd1ee37ec953bc (diff) | |
| download | perl-c39cd00800303e8967294e98aa4c427a1872a251.tar.gz | |
enable the PERL_BINMODE_SCRIPTS behavior by default on Windows
to allow ByteLoader to work; the DATA filehandles continue to
be left open in text mode for compatibility
p4raw-id: //depot/perl@4739
Diffstat (limited to 'win32/win32.h')
| -rw-r--r-- | win32/win32.h | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/win32/win32.h b/win32/win32.h index c953f5b38e..24ba7c6784 100644 --- a/win32/win32.h +++ b/win32/win32.h @@ -325,12 +325,10 @@ typedef char * caddr_t; /* In malloc.c (core address). */ #define PERL_CORE #endif -#ifdef USE_BINMODE_SCRIPTS -#define PERL_SCRIPT_MODE "rb" -EXT void win32_strip_return(struct sv *sv); +#ifdef USE_TEXTMODE_SCRIPTS +# define PERL_SCRIPT_MODE "r" #else -#define PERL_SCRIPT_MODE "r" -#define win32_strip_return(sv) NOOP +# define PERL_SCRIPT_MODE "rb" #endif /* |