Changeset 10612

Timestamp:

02/08/10 00:13:24 (7 months 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);
                                 }