From: Jarkko Hietaniemi Date: Tue, 11 Dec 2001 15:55:51 +0000 (+0000) Subject: We need DWIM cpps. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=846be114022639b7d7033ca6ab56113409e4e6ef;p=p5sagit%2Fp5-mst-13.2.git We need DWIM cpps. p4raw-id: //depot/perl@13626 --- diff --git a/perlio.c b/perlio.c index 9adeea7..c45c71a 100644 --- a/perlio.c +++ b/perlio.c @@ -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);