Change 34774 by [EMAIL PROTECTED] on 2008/11/08 04:21:44
Subject: [perl #54828] perlio.c has a problem (both 5.8 and 5.10)
From: "Goro Fuji" (via RT) <[EMAIL PROTECTED]>
Date: Sun, 25 May 2008 23:10:42 -0700
Message-ID: <[EMAIL PROTECTED]>
The second part of the patch. The first part was in change #33978.
Affected files ...
... //depot/perl/perlio.c#393 edit
Differences ...
==== //depot/perl/perlio.c#393 (text) ====
Index: perl/perlio.c
--- perl/perlio.c#392~34698~ 2008-11-02 13:12:59.000000000 -0800
+++ perl/perlio.c 2008-11-07 20:21:44.000000000 -0800
@@ -4640,9 +4640,7 @@
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;
End of Patch.
