Free @_ before spawning a new thread (known old Perl bug) as an attempt to fix the unref scalars error

This commit is contained in:
Alessandro Ranellucci 2013-05-19 17:34:33 +02:00
parent 48e37f97b4
commit 5494f4f385
3 changed files with 4 additions and 0 deletions

View file

@ -84,6 +84,7 @@ sub parallelize {
$q->enqueue(@items, (map undef, 1..$Config->threads));
my $thread_cb = sub { $params{thread_cb}->($q) };
@_ = ();
foreach my $th (map threads->create($thread_cb), 1..$Config->threads) {
$params{collect_cb}->($th->join);
}