# New Ticket Created by
# Please include the string: [perl #130692]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=130692 >
With 6.d.PREVIEW the simplest code for IO::Socket::Async mis-behaves:
use v6.d.PREVIEW;
react {
whenever IO::Socket::Async.listen('localhost', 3333) -> $conn {
whenever $conn.Supply(:bin) -> $buf {
await $conn.write: $buf;
$conn.close;
}
}
}
Gives rise to:
Unhandled exception in code scheduled on thread 7
Attempt to unlock mutex by thread not holding it
After the second connection every time. I noticed this when testing
HTTP::Server::Tiny.
This is Rakudo version 2017.01-132-g97359ae built on MoarVM version
2017.01-25-g70d4bd5
