[perl #69226] [BUG] IO::Socket::INET's `recv()` followed by `while accept()` causes Null PMC access in get_bool()

[via RT]

# New Ticket Created by  Carlin Bingham 
# Please include the string:  [perl #69226]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=69226 >


This is as minimal as I could get it:

> my $socket = IO::Socket::INET.socket(2,1,6); $socket.recv(); while 
> $socket.accept() {};
Null PMC access in get_bool()


Not minimal but shows the problem:

<carlin> rakudo: my $socket = IO::Socket::INET.socket(2,1,6);
$socket.bind('127.0.0.1', 4242); $socket.listen(); $socket.recv();
while $socket.accept() {};
<p6eval> rakudo 4b141a: OUTPUT«Null PMC access in get_bool()␤in Main
(/tmp/RDL9C5b1po:2)␤»


--
Carlin