In perl.git, the branch leont/perlio-readline has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/f6a18da37b231c70c98104d29e7fedca89b95e3a?hp=032633cfc09c74a71f6d56d20a88d7852942b231>
discards 032633cfc09c74a71f6d56d20a88d7852942b231 (commit)
discards 082a56c9b8ee2e350d3dd8369a08ab8475ae75e4 (commit)
- Log -----------------------------------------------------------------
commit f6a18da37b231c70c98104d29e7fedca89b95e3a
Author: Leon Timmermans <faw...@gmail.com>
Date: Wed Dec 14 00:17:01 2016 +0100
Make :via and :scalar use readdelim
M ext/PerlIO-scalar/scalar.pm
M ext/PerlIO-scalar/scalar.xs
M ext/PerlIO-via/via.pm
M ext/PerlIO-via/via.xs
commit 2bce6012b9b9e8bdaa5dbb8d4ddff8c2eaff88a6
Author: Leon Timmermans <faw...@gmail.com>
Date: Mon Apr 9 21:49:11 2012 +0200
Made :utf8 an actual layer
It will check the input for validity, by default strict validity though
less strict forms are provided. This also means PerlIO::get_layers doesn't
return a "utf8" pseudo-layer anymore, which can break some code making that
assumption.
M cpan/CPAN-Meta-YAML/t/11_read_string.t
M lib/PerlIO.pm
M perlio.c
M perliol.h
M pod/perldiag.pod
M pod/perlfunc.pod
M pod/perliol.pod
M pod/perlrun.pod
M pod/perlunifaq.pod
M pod/perluniintro.pod
M t/io/crlf.t
M t/io/layers.t
M t/io/utf8.t
M t/op/print.t
M universal.c
-----------------------------------------------------------------------
Summary of changes:
perlio.c | 2 ++
1 file changed, 2 insertions(+)
diff --git a/perlio.c b/perlio.c
index 381aba238c..6688ed7db3 100644
--- a/perlio.c
+++ b/perlio.c
@@ -4152,6 +4152,8 @@ PerlIOBuf_readdelim(pTHX_ PerlIO *f, STDCHAR *vbuf,
Size_t count, STDCHAR delim)
next = PerlIO_readdelim(f, vbuf + read, count - read, delim);
if (next >= 0)
return read + next;
+ if (read > 0)
+ return read;
else
return next; /* XXX */
}
--
Perl5 Master Repository
