[perl #114866] recv() segfault

[Sylwester ?u?ski]

# New Ticket Created by  "Sylwester ?u?ski" 
# Please include the string:  [perl #114866]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=114866 >


Hi,

That code:

#!/usr/bin/env perl6

# Local Redis server
my $h = "127.0.0.1";
my $p = '6379';

my $s = IO::Socket::INET.new( host => $h, port => $p.Int )or die();
$s.input-line-separator = "\r\n";

$s.send( "set a łąka\r\n" );
my $r = $s.recv();
$s.send( "get a\r\n" );
$s.get();
#my $g = $s.get();
my $g2 = $s.recv();
say "D: ", $g2.perl;


prints more then received from network or segfaults.

Output is like below when not segfault:

D: "łąka\r\n\b\x[90]"

or

D: "łąka\r\n\b\x[0]"

but network sends only string with ending:

"łąka\r\n"


-- 
Sylwester Łuński, slun...@gmail.com