From 5da08ab0c45e6850ad1ad3d66f3796f19bf0eaae Mon Sep 17 00:00:00 2001 From: Leon Timmermans Date: Fri, 25 Mar 2011 12:55:46 +0100 Subject: [PATCH] Update comment for PerlIOCrlf_pushed wrt 7826b36 7826b36fbbf24cfa659558ee5af3de424faa2d5a changed the behavior of PerlIOCrlf_pushed but its comment wasn't updated along with it. --- perlio.c | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/perlio.c b/perlio.c index 42bdb84..f2f8729 100644 --- a/perlio.c +++ b/perlio.c @@ -4544,10 +4544,8 @@ PerlIOCrlf_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab) PerlIOBase(f)->flags); #endif { - /* Enable the first CRLF capable layer you can find, but if none - * found, the one we just pushed is fine. This results in at - * any given moment at most one CRLF-capable layer being enabled - * in the whole layer stack. */ + /* If the old top layer is a CRLF layer, reactivate it (if + * necessary) and remove this new layer from the stack */ PerlIO *g = PerlIONext(f); if (PerlIOValid(g)) { PerlIOl *b = PerlIOBase(g); -- 2.7.4