Changeset 10612

Timestamp:

02/08/10 00:13:24 (2 years ago)

Author:

azawawi

Message:

Perl tidy

Location:

trunk/Padre/lib/Padre

Files:

• Action/File.pm (modified) (1 diff)
• Document.pm (modified) (1 diff)
• Document/Perl.pm (modified) (1 diff)
• Wx/Directory/OpenInFileBrowserAction.pm (modified) (6 diffs)
• Wx/Main.pm (modified) (3 diffs)

trunk/Padre/lib/Padre/Action/File.pm

@@ -127 +127 @@
 
     Padre::Action->new(
-        name       => 'file.open_with_default_system_editor',
-        label      => Wx::gettext('Open with Default System Editor'),
+        name        => 'file.open_with_default_system_editor',
+        label       => Wx::gettext('Open with Default System Editor'),
         need_editor => 1,
         need_file   => 1,
-        comment    => Wx::gettext('Opens the file with the default system editor'),
-        menu_event => sub {
+        comment     => Wx::gettext('Opens the file with the default system editor'),
+        menu_event  => sub {
             my $document = $_[0]->current->document or return;
             $_[0]->on_open_with_default_system_editor( $document->filename );

trunk/Padre/lib/Padre/Document.pm

@@ -222 +222 @@
         $self->{filename} = $self->{file}->{filename};
 
-        # TODO: Fix Ticket #845 here. We need to make sure only the filename and not the folder name is here. 
-        # This causes F5 to fail as the get_command in Document::Perl doesn' handle this corretly   
+        # TODO: Fix Ticket #845 here. We need to make sure only the filename and not the folder name is here.
+        # This causes F5 to fail as the get_command in Document::Perl doesn' handle this corretly
 
         if ( $self->{file}->exists ) {

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

@@ -319 +319 @@
     my $dir = File::Basename::dirname($filename);
     chdir $dir;
-    
+
     return $debug
         ? qq{"$perl" -Mdiagnostics(-traceonly) $run_args{interpreter} "$filename"$Script_Args}

trunk/Padre/lib/Padre/Wx/Directory/OpenInFileBrowserAction.pm

@@ -30 +30 @@
         # On Windows, if we don't have STDIN/STDOUT, avoid IPC::Open3
         # because it crashes when launching a non-console app
-        if ( Padre::Constant::WIN32 ) {
+        if (Padre::Constant::WIN32) {
             system( $cmd, @cmd_args ); # we know that Explorer.exe will quit quickly
         } else {
@@ -59 +59 @@
     my $main = Padre::Current->main;
 
-    unless( $filename ) {
+    unless ($filename) {
         $main->error( Wx::gettext("No filename") );
         return;
@@ -76 +76 @@
 
         # Unsupported
-        $error = sprintf(Wx::gettext("Unsupported OS: %s"), '$^O');
+        $error = sprintf( Wx::gettext("Unsupported OS: %s"), '$^O' );
     }
 
-    if ( $error ) {
-        $main->error( $error );
+    if ($error) {
+        $main->error($error);
     }
 
@@ -90 +90 @@
 #
 sub open_with_default_system_editor {
-    my ($self, $filename) = @_;
+    my ( $self, $filename ) = @_;
 
     my $main = Padre::Current->main;
-    unless( $filename ) {
+    unless ($filename) {
         $main->error( Wx::gettext("No filename") );
         return;
     }
-    
+
     my $error;
-    if(Padre::Constant::WIN32) {
+    if (Padre::Constant::WIN32) {
+
         # Win32
         require Padre::Util::Win32;
@@ -106 +107 @@
             file       => $filename,
             parameters => '',
-            show       => 1);
-    } elsif(Padre::Constant::UNIX) {
+            show       => 1
+        );
+    } elsif (Padre::Constant::UNIX) {
+
         # Unix
         $error = $self->_execute_in_file_mananger($filename);
     } else {
+
         # Unsupported
-        $error = sprintf(Wx::gettext("Unsupported OS: %s"), '$^O');
-    }
-    
-    if ( $error ) {
-        $main->error( $error );
+        $error = sprintf( Wx::gettext("Unsupported OS: %s"), '$^O' );
     }
 
-    return; 
+    if ($error) {
+        $main->error($error);
+    }
+
+    return;
 }
 
@@ -128 +132 @@
     die "Only to be called in UNIX!" unless Padre::Constant::UNIX;
 
-    my ($self, $filename) = @_;
-    
+    my ( $self, $filename ) = @_;
+
     my $error;
     if ( defined $ENV{KDE_FULL_SESSION} ) {

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

@@ -2390 +2390 @@
             SCOPE: {
                 require File::pushd;
+
                 # Ticket #845 this project_dir is created in correctly when you do padre somedir/script.pl and run F5 on that
                 # real stupid think so we don't crash
@@ -2395 +2396 @@
                 # The other part of this fix is in lib/Padre/Document/Perl.pm in get_command
                 # Please feel free to fix this
-                my $pushd = File::pushd::pushd( $document->project_dir) if -e $document->project_dir;
+                my $pushd = File::pushd::pushd( $document->project_dir ) if -e $document->project_dir;
                 $self->run_command($cmd);
             }
@@ -2409 +2410 @@
                 SCOPE: {
                     require File::pushd;
-                    my $pushd = File::pushd::pushd( $document->project_dir ) if -e  $document->project_dir;
+                    my $pushd = File::pushd::pushd( $document->project_dir ) if -e $document->project_dir;
                     $self->run_command($cmd);
                 }