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.c | |
| 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.c')
| -rw-r--r-- | win32/win32.c | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/win32/win32.c b/win32/win32.c index ae22a60927..53288af338 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -3688,31 +3688,6 @@ Perl_win32_init(int *argcp, char ***argvp) MALLOC_INIT; } -#ifdef USE_BINMODE_SCRIPTS - -void -win32_strip_return(SV *sv) -{ - char *s = SvPVX(sv); - char *e = s+SvCUR(sv); - char *d = s; - while (s < e) - { - if (*s == '\r' && s[1] == '\n') - { - *d++ = '\n'; - s += 2; - } - else - { - *d++ = *s++; - } - } - SvCUR_set(sv,d-SvPVX(sv)); -} - -#endif - #ifdef USE_ITHREADS # ifdef PERL_OBJECT |