Changeset 9683

Timestamp:

12/14/09 01:54:50 (2 years ago)

Author:

waxhead

Message:

Perl Tidy run for Release 0.52

Location:

trunk/Padre/lib/Padre

Files:

• Action.pm (modified) (1 diff)
• Document/Perl.pm (modified) (2 diffs)
• Wx/Dialog/HelpSearch.pm (modified) (3 diffs)
• Wx/Dialog/SessionManager.pm (modified) (2 diffs)
• Wx/Main.pm (modified) (1 diff)

trunk/Padre/lib/Padre/Action.pm

@@ -112 +112 @@
 
         my $shortcuts = Padre->ide->{shortcuts};
-        if (defined($shortcuts->{$shortcut})) {
+        if ( defined( $shortcuts->{$shortcut} ) ) {
             warn "Found a duplicate shortcut '$shortcut' with " . $shortcuts->{$shortcut}->name . " for '$name'\n";
         } else {

trunk/Padre/lib/Padre/Document/Perl.pm

@@ -1729 +1729 @@
 
 sub guess_filename_to_open {
-    my ($self, $text) =  @_;
+    my ( $self, $text ) = @_;
 
     my $module = $text;
@@ -1769 +1769 @@
         }
     }
-    
+
     return @files;
 }

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

@@ -71 +71 @@
             eval { ( $html, $location ) = $self->_help_provider->help_render($topic); };
             if ($@) {
-                $self->_main->error(Wx::gettext("Error while calling help_render: ") . $@);
+                $self->_main->error( Wx::gettext("Error while calling help_render: ") . $@ );
                 return;
             }
@@ -284 +284 @@
             eval { $self->_help_provider( $doc->get_help_provider ); };
             if ($@) {
-                $self->_main->error(Wx::gettext("Error while calling get_help_provider: ") . $@);
+                $self->_main->error( Wx::gettext("Error while calling get_help_provider: ") . $@ );
                 return;
             }
-            if (not $self->_help_provider) {
-                $self->_main->error(Wx::gettext("Could not find a help provider for ") . 
-                    Padre::MimeTypes->get_mime_type_name( $doc->get_mimetype ) );
+            if ( not $self->_help_provider ) {
+                $self->_main->error( Wx::gettext("Could not find a help provider for ")
+                        . Padre::MimeTypes->get_mime_type_name( $doc->get_mimetype ) );
                 return;
             }
@@ -297 +297 @@
     eval { $self->_index( $self->_help_provider->help_list ); };
     if ($@) {
-        $self->_main->error(Wx::gettext("Error while calling help_list: ") . $@);
+        $self->_main->error( Wx::gettext("Error while calling help_list: ") . $@ );
         return;
     }

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

@@ -108 +108 @@
         'session_autosave',
         $self->{autosave}->GetValue ? 1 : 0
-        );
+    );
     $config->write;
 
     # Open session
     my $main = $self->GetParent;
-    $main->open_session( $self->_current_session, $self->{autosave}->GetValue ? 1:0 );
+    $main->open_session( $self->_current_session, $self->{autosave}->GetValue ? 1 : 0 );
     $self->Destroy();
 }
@@ -258 +258 @@
         Wx::gettext('Save session automatically'),
     );
-    $self->{autosave}->SetValue($config->session_autosave ? 1 : 0);
-
-#       Wx::Event::EVT_CHECKBOX(
-#           $self,
-#           $self->{autosave},
-#           sub {
+    $self->{autosave}->SetValue( $config->session_autosave ? 1 : 0 );
+
+    #       Wx::Event::EVT_CHECKBOX(
+    #           $self,
+    #           $self->{autosave},
+    #           sub {
     #           $_[0]->{find_text}->SetFocus;
-#           }
-#       );
+    #           }
+    #       );
 
     $hbox->Add( $self->{autosave}, 0, Wx::wxALL, 5 );

trunk/Padre/lib/Padre/Wx/Main.pm

@@ -3468 +3468 @@
         );
         if (@$error) {
-            $self->error( sprintf(Wx::gettext("Failed to create path '%s'"),$dir) );
+            $self->error( sprintf( Wx::gettext("Failed to create path '%s'"), $dir ) );
             return $self->on_save_as(@_);
         }