double_hang.pl

use Sys::SigAction qw(timeout_call);

my $timed_out = timeout_call 3, sub {   # schedules SIGALRM
    my $ctx = ZMQ::FFI->new();
    my $s   = $ctx->socket(ZMQ_REQ);

    $s->connect("ipc:///tmp/test-zmq-ffi-$$");
    $s->send('ohhai');

    $s->close();     # bug here, linger not set
    $ctx->destroy(); # hangs, SIGALRM breaks the hang
    
    # end of scope, socket/ctx DEMOLISH triggers.. hangs again!  woops
};

# never gets here
ok !$timed_out, 'implicit Socket cleanup done correctly (does not hang)';