Changeset 10846

Timestamp:

02/20/10 00:44:18 (2 years ago)

Author:

azawawi

Message:

Perl tidy (2 files)

Location:

trunk/Padre/lib/Padre

Files:

• Task/ErrorParser.pm (modified) (1 diff)
• Wx/Dialog/Advanced.pm (modified) (2 diffs)

trunk/Padre/lib/Padre/Task/ErrorParser.pm

@@ -36 +36 @@
 sub finish {
     my $self = shift;
-    # my $main = shift; 
-    # really not sure if this is right, but parameter passed in isa Padre::Wx::App, 
+
+    # my $main = shift;
+    # really not sure if this is right, but parameter passed in isa Padre::Wx::App,
     # not Padre::Wx::Main, however a reference to main is held in Padre::Wx::App
-    my $main = shift->{main}; 
+    my $main = shift->{main};
     return if !$main;
     my $errorlist = $main->errorlist if $main;

trunk/Padre/lib/Padre/Wx/Dialog/Advanced.pm

@@ -557 +557 @@
 
         # Add the setting to the list control
-        my $pref    = $preferences->{$name};
+        my $pref       = $preferences->{$name};
         my $is_default = $pref->{is_default};
 
@@ -613 +613 @@
         my $default    = $setting->default;
         my $is_default = $self->_is_default( $type, $value, $default );
-        my $store_name = ($store == Padre::Constant::HUMAN) ? Wx::gettext('User') : Wx::gettext('Host');
+        my $store_name = ( $store == Padre::Constant::HUMAN ) ? Wx::gettext('User') : Wx::gettext('Host');
         $self->{preferences}->{$name} = {
             'is_default' => $is_default,