Changeset 10612 for trunk/Padre/lib/Padre/Wx/Directory/OpenInFileBrowserAction.pm

Timestamp:

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

Author:

azawawi

Message:

Perl tidy

File:

• trunk/Padre/lib/Padre/Wx/Directory/OpenInFileBrowserAction.pm (modified) (6 diffs)

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} ) {