From: Goro Fuji <unknown>
Date: Sun, 25 May 2008 23:10:42 +0000 (-0700)
Subject: [perl #54828] perlio.c has a problem (both 5.8 and 5.10)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5fae6dc1d23a9b59e9fc4a976e5c42f399ad3872;p=p5sagit%2Fp5-mst-13.2.git

[perl #54828] perlio.c has a problem (both 5.8 and 5.10)
From: "Goro Fuji" (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.6.HEAD-11257-1211782242-1590.54828-75-0@perl.org>

The second part of the patch.  The first part was in change #33978.
p4raw-link: @33978 on //depot/perl: 9d97e8b8cac47626e28c79994e7ab0d5c8589515

p4raw-id: //depot/perl@34774
---

diff --git a/perlio.c b/perlio.c
index 304d106..a3ea344 100644
--- a/perlio.c
+++ b/perlio.c
@@ -4640,9 +4640,7 @@ PerlIOCrlf_binmode(pTHX_ PerlIO *f)
 	PerlIOBase(f)->flags &= ~PERLIO_F_CRLF;
 #ifndef PERLIO_USING_CRLF
 	/* CRLF is unusual case - if this is just the :crlf layer pop it */
-	if (PerlIOBase(f)->tab == &PerlIO_crlf) {
-		PerlIO_pop(aTHX_ f);
-	}
+	PerlIO_pop(aTHX_ f);
 #endif
     }
     return 0;