Changeset 11039

Timestamp:

03/10/10 01:30:35 (2 years ago)

Author:

Sewi

Message:

Perl tidy

Location:

trunk/Padre/lib/Padre

Files:

• SlaveDriver.pm (modified) (3 diffs)
• Wx/Ack.pm (modified) (2 diffs)
• Wx/Dialog/WindowList.pm (modified) (3 diffs)

trunk/Padre/lib/Padre/SlaveDriver.pm

@@ -128 +128 @@
 
     require Storable;
-    $self->{cmd_queue}->enqueue(
-        Storable::freeze( [ $task_manager->task_queue ] )
-    );
-
-    return threads->object(
-        $self->{tid_queue}->dequeue
-    );
+    $self->{cmd_queue}->enqueue( Storable::freeze( [ $task_manager->task_queue ] ) );
+
+    return threads->object( $self->{tid_queue}->dequeue );
 }
 
@@ -192 +188 @@
 
 sub _worker_loop {
-    my ( $queue ) = @_;
+    my ($queue) = @_;
     @_ = (); # Hack to avoid "Scalars leaked"
 
@@ -244 +240 @@
     while ( my $args = $inqueue->dequeue ) { # args is frozen [$main, $queue]
         last if $args eq 'STOP';
-        my $task_queue    = Padre::SlaveDriver->new->task_queue;
+        my $task_queue = Padre::SlaveDriver->new->task_queue;
         my $worker_thread = threads->create( \&_worker_loop, $task_queue );
-        $outqueue->enqueue($worker_thread->tid);
+        $outqueue->enqueue( $worker_thread->tid );
     }
 

trunk/Padre/lib/Padre/Wx/Ack.pm

@@ -248 +248 @@
     my $file_matching = $opts{f} || $opts{lines};
     if ( !$file_matching ) {
-        $opts{regex} = App::Ack::build_regex( $opts{regex} , \%opts );
+        $opts{regex} = App::Ack::build_regex( $opts{regex}, \%opts );
     }
 
@@ -254 +254 @@
     eval { App::Ack::check_regex( $opts{regex} ) };
     if ($@) {
-        $main->error("Find in Files: error in regex " . $opts{regex});
+        $main->error( "Find in Files: error in regex " . $opts{regex} );
         return;
     }

trunk/Padre/lib/Padre/Wx/Dialog/WindowList.pm

@@ -54 +54 @@
     $self->SetIcon(Padre::Wx::Icon::PADRE);
 
-    if (!scalar(Padre->ide->wx->main->pages)) {
+    if ( !scalar( Padre->ide->wx->main->pages ) ) {
         $self->{_empty} = 1;
     } else {
 
-    # create dialog
-    $self->_create;
+        # create dialog
+        $self->_create;
     }
 
@@ -70 +70 @@
     my $self = shift;
 
-    if ($self->{_empty}) {
+    if ( $self->{_empty} ) {
         $self->Destroy;
         return 0;
@@ -323 +323 @@
 
         my $documentfile = $document->file;
-        if (defined($documentfile)) {
-
-        $filename    = $documentfile->filename;
-        my $project_dir = $document->project_dir;
-        $filename =~ s/^\Q$project_dir\E// if defined($project_dir);
-
-        # Apply filter (if any)
-        if ( defined( $self->{filter} ) ) {
-            next unless &{ $self->{filter} }( $page, $project_dir, $filename, $document );
-        }
+        if ( defined($documentfile) ) {
+
+            $filename = $documentfile->filename;
+            my $project_dir = $document->project_dir;
+            $filename =~ s/^\Q$project_dir\E// if defined($project_dir);
+
+            # Apply filter (if any)
+            if ( defined( $self->{filter} ) ) {
+                next unless &{ $self->{filter} }( $page, $project_dir, $filename, $document );
+            }
         } else {
             $filename = $document->get_title;