In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/45aab8effbcc58e2d502958568938cf2eabb7d62?hp=d024465fe3cc8e4457de17ba501f5b28a53f0872>
- Log ----------------------------------------------------------------- commit 45aab8effbcc58e2d502958568938cf2eabb7d62 Author: Josh ben Jore <[email protected]> Date: Mon Jul 12 23:56:55 2010 -0700 Reset variables being initialized by readline before we do possibly blocking I/O ----------------------------------------------------------------------- Summary of changes: sv.c | 1 + 1 files changed, 1 insertions(+), 0 deletions(-) diff --git a/sv.c b/sv.c index 39689fd..7ba5ab7 100644 --- a/sv.c +++ b/sv.c @@ -7040,6 +7040,7 @@ Perl_sv_gets(pTHX_ register SV *const sv, register PerlIO *const fp, I32 append) } SvPOK_only(sv); + SvCUR_set(sv,0); if (PerlIO_isutf8(fp)) SvUTF8_on(sv); -- Perl5 Master Repository
