# New Ticket Created by  Zoffix Znet 
# Please include the string:  [perl #131383]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=131383 >


Seems something with decoding actually, since using char of different size or 
adding another char after the heart avoids the issue:

<Zoffix___> m: my $f1 = "/tmp/foo121212".IO; $f1.spurt: "fo♥"; 
$f1.open.readchars(2).say
<camelia> rakudo-moar 0c5fe5: OUTPUT: «fo♥␤»
<Zoffix___> m: my $f1 = "/tmp/foo121212".IO; $f1.spurt: "fo♥z"; 
$f1.open.readchars(2).say
<camelia> rakudo-moar 0c5fe5: OUTPUT: «fo␤»
<Zoffix___> m: my $f1 = "/tmp/foo121212".IO; $f1.spurt: "foz"; 
$f1.open.readchars(2).say
<camelia> rakudo-moar 0c5fe5: OUTPUT: «fo␤»

Bisection results:

<Zoffix___> bisect: my $f1 = "/tmp/foo121212".IO; $f1.spurt: "fo♥"; 
$f1.open.readchars(2).say
<bisectable6> Zoffix___, Bisecting by output (old=2015.12 new=0c5fe56) because 
on both starting points the exit code is 0
<bisectable6> Zoffix___, bisect log: 
https://gist.github.com/6417457868d7d3389761c1b1d1499ada
<bisectable6> Zoffix___, (2017-01-02) 
https://github.com/rakudo/rakudo/commit/7c8b705b3375522fc36304b771f82f50246afcf0
<Zoffix___> Geth, ver 
https://github.com/rakudo/rakudo/commit/7c8b705b3375522fc36304b771f82f50246afcf0
<Geth> Zoffix___, version bump brought in these changes: 
https://github.com/perl6/nqp/compare/2016.12-48-g5daf0e3...2016.12-55-gc782eb7c
<Zoffix___> Geth, ver 
https://github.com/perl6/nqp/commit/c782eb7cb8cfdbb281c90ec9974c2a0495027a73
<Geth> Zoffix___, version bump brought in these changes: 
https://github.com/MoarVM/MoarVM/compare/2016.12-35-g293bda71...2016.12-50-g9a9f2d46

<Zoffix___> m: my $f1 = "/tmp/foo121212".IO; $f1.spurt: "fo♥"; with $f1.open { 
.readchars(1).say xx 3 }
<camelia> rakudo-moar 0c5fe5: OUTPUT: «f␤o♥␤␤»
<Zoffix___> c: 7c8b705b33755 my $f1 = "/tmp/foo121212".IO; $f1.spurt: "fo♥"; 
$f1.open.readchars(2).say
<committable6> Zoffix___, ¦7c8b705: «fo♥»
<Zoffix___> c: 7c8b705b33755~ my $f1 = "/tmp/foo121212".IO; $f1.spurt: "fo♥"; 
$f1.open.readchars(2).say
<committable6> Zoffix___, ¦7c8b705b33755~: «fo»

Reply via email to