Changeset 11051

Timestamp:

03/10/10 15:00:48 (2 years ago)

Author:

Sewi

Message:

Perl tidy

Location:

trunk/Padre/lib/Padre

Files:

• TaskManager.pm (modified) (1 diff)
• Wx/Dialog/RegexEditor.pm (modified) (1 diff)
• Wx/Dialog/WhereFrom.pm (modified) (4 diffs)

trunk/Padre/lib/Padre/TaskManager.pm

@@ -428 +428 @@
 
     my $loopcount;
-# Changing the selection seems to solve the endless-loop problem
-#   while ( threads->list(threads::running) >= 2 ) {
+
+    # Changing the selection seems to solve the endless-loop problem
+    #   while ( threads->list(threads::running) >= 2 ) {
     while ( threads->list(threads::joinable) >= 2 ) {
-        for (threads->list(threads::joinable)) {
+        for ( threads->list(threads::joinable) ) {
             $_->join;
         }
-        last if $loopcount > 125; # Wait no more than two minutes
-        # Pass time slices to the threads for finishing
+        last    if $loopcount > 125; # Wait no more than two minutes
+                                     # Pass time slices to the threads for finishing
         sleep 1 if ++$loopcount > 5;
     }

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

@@ -82 +82 @@
             value => {
                 '00[:alpha:]'  => Wx::gettext('Alphabetic characters'),
-                '01[:alnum:]' => Wx::gettext('Alphanumeric characters'),
+                '01[:alnum:]'  => Wx::gettext('Alphanumeric characters'),
                 '02[:ascii:]'  => Wx::gettext('7-bit US-ASCII character'),
                 '03[:blank:]'  => Wx::gettext('Space and tab'),

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

@@ -4 +4 @@
 use strict;
 use warnings;
-use Padre::Wx         ();
-use Padre::Wx::Dialog ();
+use Padre::Wx               ();
+use Padre::Wx::Dialog       ();
 use Padre::Task::HTTPClient ();
 
@@ -32 +32 @@
             ],
         ],
-        [   [ 'Wx::Button', '_ok_',     Wx::wxID_OK ],[],
+        [   [ 'Wx::Button', '_ok_', Wx::wxID_OK ], [],
             [ 'Wx::Button', '_cancel_', Wx::gettext("Skip feedback") ],
         ],
@@ -59 +59 @@
     my $config = Padre->ide->config;
 
-    if (! $config->feedback_done) {
-    $config->set('feedback_done',1);
-    $config->write;
+    if ( !$config->feedback_done ) {
+        $config->set( 'feedback_done', 1 );
+        $config->write;
     }
 
@@ -76 +76 @@
     $dialog->Destroy;
 
-    if (! $config->feedback_done) {
+    if ( !$config->feedback_done ) {
 
-    my $url = 'http://padre.perlide.org/wherefrom.cgi';
-    my $args = {from => $data->{_referer_}};
-    my $http = Padre::Task::HTTPClient->new(
-        URL => $url,
-        query => $args,
-    )->run;
+        my $url  = 'http://padre.perlide.org/wherefrom.cgi';
+        my $args = { from => $data->{_referer_} };
+        my $http = Padre::Task::HTTPClient->new(
+            URL   => $url,
+            query => $args,
+        )->run;
 
-    $config->set('feedback_done',1);
-    $config->write;
+        $config->set( 'feedback_done', 1 );
+        $config->write;
 
     }