# New Ticket Created by Bradley Garagan
# Please include the string: [perl #130377]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=130377 >
This is Rakudo version 2016.11 built on MoarVM version 2016.11
implementing Perl 6.c.
Here is a program that demonstrates the problem.
use v6;
my $s = IO::Socket::INET.new(:host('irc.freenode.net'), :port(6667));
$s.print("QUIT\r\n");
for $s.lines { say $_; }
say so $s.print("this should fail");
