diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-11 15:55:51 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-11 15:55:51 +0000 |
commit | 846be114022639b7d7033ca6ab56113409e4e6ef (patch) | |
tree | 3e5509fc32bebdfcf8a8f58b9c64a8a0d89aae0f /perlio.c | |
parent | 531c60d54ac0c8d986882963cc1cc6a92c370a4f (diff) | |
download | perl-846be114022639b7d7033ca6ab56113409e4e6ef.tar.gz |
We need DWIM cpps.
p4raw-id: //depot/perl@13626
Diffstat (limited to 'perlio.c')
-rw-r--r-- | perlio.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -861,10 +861,10 @@ PerlIO_default_buffer(pTHX_ PerlIO_list_t *av) PerlIO_funcs *tab = &PerlIO_perlio; #ifdef PERLIO_CRLF tab = &PerlIO_crlf; -#endif +#else if (PerlIO_stdio.Set_ptrcnt) tab = &PerlIO_stdio; -#else +#endif PerlIO_debug("Pushing %s\n", tab->name); PerlIO_list_push(aTHX_ av, PerlIO_find_layer(aTHX_ tab->name, 0, 0), &PL_sv_undef); |