Throwing a control exception within Lock.protect causes [LTA] locking behavior

[p6rt]

Migrated from rt.perl.org#127865 (status was 'open')

Searchable as RT127865$

[p6rt]

From @hoelzro

If I have a control exception within a Lock.protect, the lock in question is still in a locked state after the call to protect returns. On MoarVM, this has the side effect when a ReentrantMutex object gets collected, the underlying pthread_mutex is still locked. pthread_mutex_destroy thus fails, and libuv calls abort(). To reproduce this, run the attached script, or follow these instructions​:

  $ git clone https://github.com/zostay/HTTP-Supply
  $ git checkout ad7da71
  $ perl6 -Ilib t/http-1.0.t

[p6rt]

From @hoelzro

test.pl

[p6rt]

From @dogbert17

Seems to work fine, on my 32 bit VM, with 'This is Rakudo version 2017.09-348-g830084430 built on MoarVM version 2017.09.1-575-gd4e230a69'

[p6rt]

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