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

Timestamp:

02/07/10 10:12:19 (2 years ago)

Author:

azawawi

Message:

Perl tidy

File:

• 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();