Changeset 2158

Timestamp:

12/22/08 04:17:09 (3 years ago)

Author:

tsee

Message:

reduce amount of data passed to thread in a feeble attempt to fix the Scalars leaked warning.

File:

• trunk/Padre/lib/Padre/TaskManager.pm (modified) (2 diffs)

trunk/Padre/lib/Padre/TaskManager.pm

@@ -246 +246 @@
     @_=(); # avoid "Scalars leaked"
     my $worker = threads->create(
-      {'exit' => 'thread_only'}, \&worker_loop, $main, $self
+      {'exit' => 'thread_only'}, \&worker_loop, $main, $self->task_queue
     );
     push @{$self->{workers}}, $worker;
@@ -423 +423 @@
 # Worker thread main loop
 sub worker_loop {
-    my ($main, $taskmanager) = @_;  @_ = (); # hack to avoid "Scalars leaked"
-    my $queue = $taskmanager->task_queue;
+    my ($main, $queue) = @_;  @_ = (); # hack to avoid "Scalars leaked"
     require Storable;