foreach ( 1 .. $config->{number_of_threads} ) {

    $q->enqueue(undef);
}
[download]

    while ( my $org = $q->dequeue() ) {

        parse_org( $org, $mech );
        $pq->enqueue($org);
    }

    say "Finishing worker [$thread_id]";

    return;
[download]

I'm pushing undef into the queue with ... and I think this will cause thread to return:

It will. Eventually. But there is no guarantee -- indeed it is most unlikely -- that all of the threads will: a) get a timeslice; b) receive the undef from the queue; c) act upon it and exit; before your main thread tries to join them.

The whole point of join is that it waits for the threads to finish, thus ensuring that your main thread doesn't exit before your child threads are finished.

It rarely makes any sense to turn it into a non-blocking operation by calling is_joinable before calling join.

The are a few specialist uses for that, but in the case of your code it only guarantees that any thread that is slow to finish will not get joined before you terminate the main thread; hence the error message.

---

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

Here you go ... just because queue is empty, doesn't mean threads are joinable
Read more... (5 kB)

This reliably exits with 6 running and unjoined on my old machine, YMMV

Thank you for nice explanation! Now I got it.

If you can make the code run .. and reproduce the problem, you can see the only real way to wait is to join everything not merely the immediately joinable :)