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=9d97e8b8cac47626e28c79994e7ab0d5c8589515;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>

First chunk of the patch only

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

diff --git a/perlio.c b/perlio.c
index b935ca6..7eb7e27 100644
--- a/perlio.c
+++ b/perlio.c
@@ -1295,7 +1295,7 @@ PerlIORaw_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab)
 	while (t && (l = *t)) {
 	    if (l->tab->Binmode) {
 		/* Has a handler - normal case */
-		if ((*l->tab->Binmode)(aTHX_ f) == 0) {
+		if ((*l->tab->Binmode)(aTHX_ t) == 0) {
 		    if (*t == l) {
 			/* Layer still there - move down a layer */
 			t = PerlIONext(t);