[perl #130377] [BUG] write on closed socket not failing as it should

[via RT]

# 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");