summaryrefslogtreecommitdiff
path: root/perlio.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-12-11 15:55:51 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-12-11 15:55:51 +0000
commit846be114022639b7d7033ca6ab56113409e4e6ef (patch)
tree3e5509fc32bebdfcf8a8f58b9c64a8a0d89aae0f /perlio.c
parent531c60d54ac0c8d986882963cc1cc6a92c370a4f (diff)
downloadperl-846be114022639b7d7033ca6ab56113409e4e6ef.tar.gz
We need DWIM cpps.
p4raw-id: //depot/perl@13626
Diffstat (limited to 'perlio.c')
-rw-r--r--perlio.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/perlio.c b/perlio.c
index 9adeea7cd6..c45c71abec 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);