In perl.git, the branch smoke-me/leont/safe-utf8 has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/a80df440c5b4509d8536f4585a1d3d4985770e24?hp=d8bed5b53d0c94efdfde85dce69cd5e78a5ea83a>
- Log -----------------------------------------------------------------
commit a80df440c5b4509d8536f4585a1d3d4985770e24
Author: Leon Timmermans <faw...@gmail.com>
Date: Tue Apr 10 22:00:59 2012 +0200
Add context to pop in :bytes
-----------------------------------------------------------------------
Summary of changes:
perlio.c | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/perlio.c b/perlio.c
index 20a4ed5..d68203b 100644
--- a/perlio.c
+++ b/perlio.c
@@ -1975,7 +1975,7 @@ PerlIOBytes_pushed(pTHX_ PerlIO *f, const char *mode, SV
*arg, PerlIO_funcs *tab
while(!(PerlIOBase(current)->tab->kind & PERLIO_K_RAW)) {
/*PerlIO* next = PerlIONext(current);*/
PerlIO_flush(current);
- PerlIO_pop(current);
+ PerlIO_pop(aTHX_ current);
/*current = next; */
}
PerlIOBase(f)->flags &= ~PERLIO_F_UTF8;
--
Perl5 Master Repository
