[perl #948] [PATCH] Allow tied $,

[perl5.git] / perlio.c

diff --git a/perlio.c b/perlio.c
index 304d106..a3ea344 100644 (file)
--- 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;