From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 11 Dec 2001 15:55:51 +0000 (+0000)
Subject: We need DWIM cpps.
X-Git-Tag: accepted/trunk/20130322.191538~28891
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=846be114022639b7d7033ca6ab56113409e4e6ef;p=platform%2Fupstream%2Fperl.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);