Changeset 10846

Timestamp:

02/20/10 00:44:18 (6 months 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,