diff options
| author | Goro Fuji <unknown> | 2008-05-25 16:10:42 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-06-01 14:05:16 +0000 |
| commit | 9d97e8b8cac47626e28c79994e7ab0d5c8589515 (patch) | |
| tree | b99709b4267f6d07d8847be220c5f671012037af /perlio.c | |
| parent | 848ead8701702e34c72a40f4909900d964429249 (diff) | |
| download | perl-9d97e8b8cac47626e28c79994e7ab0d5c8589515.tar.gz | |
[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
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); |