From slunski@gmail.com

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, slunski@​gmail.com

From @FROGGS

It works for me with latest patch made by moritz++ today​:

./perl6 -e 'my $listener = IO​::Socket​::INET.new( localhost => "",
localport => 8080, :listen ); while my $connection = $listener.accept( )
{ $connection.send( "set a łąka\r\n" ); $connection.close( ); }'

./perl6 -e 'my $client = IO​::Socket​::INET.new( host => "localhost", port
=> 8080 ); $client.input-line-separator = "\r\n"; my $inc = $client.get;
say $inc.perl'
OUTPUT​: "set a łąka"

Though I can't use your test script, since I think my firewall doesnt
like it.

The RT System itself - Status changed from 'new' to 'open'

@moritz - Status changed from 'open' to 'resolved'