Changeset 8589

Timestamp:

10/03/09 11:59:49 (2 years ago)

Author:

Sewi

Message:

Perl tidy

Location:

trunk/Padre/lib/Padre

Files:

• Document/Perl.pm (modified) (1 diff)
• Wx/Main.pm (modified) (2 diffs)

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

@@ -243 +243 @@
     if ( Padre->ide->config->editor_beginner ) {
         require Padre::Document::Perl::Beginner;
-        my $b = Padre::Document::Perl::Beginner->new(
-        document => $self
-        );
+        my $b = Padre::Document::Perl::Beginner->new( document => $self );
         if ( $b->check( $self->text_get ) ) {
             return 1;

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

@@ -1796 +1796 @@
             $self->run_command($cmd);
         } else {
-                my $styles = Wx::wxCENTRE | Wx::wxICON_HAND|Wx::wxYES_NO ;
-                my $ret = Wx::MessageBox(
-                $document->errstr."\n".
-                Wx::gettext('Do you want to continue?'),
+            my $styles = Wx::wxCENTRE | Wx::wxICON_HAND | Wx::wxYES_NO;
+            my $ret    = Wx::MessageBox(
+                $document->errstr . "\n" . Wx::gettext('Do you want to continue?'),
                 Wx::gettext("Warning"),
                 $styles,
@@ -1807 +1806 @@
                 $self->run_command($cmd);
             }
-            }
+        }
     }
     return;