[perl #131365] [IO] IO::Handle.getc returns too-many chars at the end of file

[jn...@jnthn.net via RT]

On Thu, 25 May 2017 08:26:18 -0700, c...@zoffix.com wrote:
> IRC: https://irclog.perlgeek.de/perl6-dev/2017-05-25#i_14636375
> 
> Note how the last item in the returned list contains a string with
> more than on character:
> 
> 15:17   Zoffix  m: with '/tmp/foo70'.IO { .spurt: "a♥c"; with .open {
> dd ( .getc xx 10 ) } }
> 15:17   camelia         rakudo-moar 428324: OUTPUT: «("a", "♥c", Nil,
> Nil, Nil, Nil, Nil, Nil, Nil, Nil).Seq␤»
> 15:17   Zoffix  m: with '/tmp/foo70'.IO { .spurt: "a♥cd"; with .open {
> dd ( .getc xx 10 ) } }
> 15:17   camelia         rakudo-moar 428324: OUTPUT: «("a", "♥", "cd",
> Nil, Nil, Nil, Nil, Nil, Nil, Nil).Seq␤»

Fixed and tested in S16-io/getc.t.