Changeset 10599 for trunk/Padre/lib/Padre/TaskManager.pm

Timestamp:

02/07/10 10:12:19 (6 months ago)

Author:

azawawi

Message:

Perl tidy

Files:

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

trunk/Padre/lib/Padre/TaskManager.pm

@@ -118 +118 @@
                 reap_interval  => 15000,
                 @_,
-                workers       => [],
-                # grab a copy of the task_queue that's now handled by the slave driver
+                workers => [],
+
+                # grab a copy of the task_queue that's now handled by the slave driver
                 task_queue    => Padre::SlaveDriver->new()->task_queue,
                 running_tasks => {},
@@ -132 +133 @@
         _init_events($main);
 
-        # To be removed: Old task queue instantiation => Padre::SlaveDriver
+        # To be removed: Old task queue instantiation => Padre::SlaveDriver
         #$self->{task_queue} = Thread::Queue->new;
 
@@ -240 +241 @@
                 $self->task_queue->enqueue($string);
                 $self->task_queue->enqueue("STOP");
-                require Padre::SlaveDriver;
-                no warnings 'once';
-                if (not defined $Padre::SlaveDriver::TASK_DONE_EVENT) {
-                  Padre::SlaveDriver->_init_events();
-                }
+                require Padre::SlaveDriver;
+                no warnings 'once';
+                if ( not defined $Padre::SlaveDriver::TASK_DONE_EVENT ) {
+                        Padre::SlaveDriver->_init_events();
+                }
                 Padre::SlaveDriver::_worker_loop( $self->task_queue );
         }
@@ -293 +294 @@
 
 
-        # To be removed: Old worker thread cration. => Padre::SlaveDriver
-#       @_ = (); # avoid "Scalars leaked"
-#       my $worker = threads->create(
-#               { 'exit' => 'thread_only' }, \&worker_loop,
-#               $main, $self->task_queue
-#       );
+        # To be removed: Old worker thread cration. => Padre::SlaveDriver
+        #       @_ = (); # avoid "Scalars leaked"
+        #       my $worker = threads->create(
+        #               { 'exit' => 'thread_only' }, \&worker_loop,
+        #               $main, $self->task_queue
+        #       );
         my $worker = Padre::SlaveDriver->new->spawn($self);
         die if not ref $worker;
@@ -421 +422 @@
         }
 
-        # cleanup master thread, too
-        Padre::SlaveDriver->new->cleanup();
+        # cleanup master thread, too
+        Padre::SlaveDriver->new->cleanup();
 
         # didn't work the nice way?
@@ -554 +555 @@
 sub on_task_start_event {
         my ( $wx, $event ) = @_; @_ = (); # hack to avoid "Scalars leaked"
-                                            # TO DO/FIXME:
-                                            # This should somehow get at the specific TaskManager object
-                                            # instead of going through the Padre globals!
-        my $main = $wx->main;
+                                          # TO DO/FIXME:
+                                          # This should somehow get at the specific TaskManager object
+                                          # instead of going through the Padre globals!
+        my $main              = $wx->main;
         my $manager           = Padre->ide->task_manager;
         my $tid_and_task_type = $event->GetData();