Changeset 7817

Timestamp:

09/10/09 02:26:39 (2 years ago)

Author:

Sewi

Message:

Perl tidy

File:

• trunk/Padre/lib/Padre/Document/Perl.pm (modified) (1 diff)

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

@@ -297 +297 @@
 sub beginner_check {
     my $self = shift;
-    
+
     # TODO: Make this cool
     # It isn't, because it should show _all_ warnings instead of one and
     # it should at least go to the line it's complaining about.
-    
+
     my $Beginner = Padre::Document::Perl::Beginner->new();
-    
-    $Beginner->check($self->text_get);
-    
+
+    $Beginner->check( $self->text_get );
+
     my $Error = $Beginner->error;
 
     defined($Error) or return 1;
 
-    Padre->ide->wx->main->error('Warning: '. $Error);
-    
+    Padre->ide->wx->main->error( 'Warning: ' . $Error );
+
     return 1;
 }