Change 33978 by [EMAIL PROTECTED] on 2008/06/01 14:05:16
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]>
First chunk of the patch only
Affected files ...
... //depot/perl/perlio.c#387 edit
Differences ...
==== //depot/perl/perlio.c#387 (text) ====
Index: perl/perlio.c
--- perl/perlio.c#386~33671~ 2008-04-13 03:28:31.000000000 -0700
+++ perl/perlio.c 2008-06-01 07:05:16.000000000 -0700
@@ -1295,7 +1295,7 @@
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);
End of Patch.
