Changeset 10595 for trunk/Padre/lib/Padre/Wx/Dialog/RegexEditor.pm

Timestamp:

02/07/10 07:35:50 (2 years ago)

Author:

azawawi

Message:

Perl tidy only on RegexEditor?.pm

File:

• trunk/Padre/lib/Padre/Wx/Dialog/RegexEditor.pm (modified) (5 diffs)

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

@@ -452 +452 @@
     $self->{matched_text}->Clear;
     $self->{result_text}->Clear;
-    
+
     $self->{matched_text}->BeginTextColour(Wx::wxBLACK);
-    
+
     my $match;
     my $match_start;
@@ -477 +477 @@
     if ($@) {
         $self->{matched_text}->BeginTextColour(Wx::wxRED);
-        $self->{matched_text}->SetValue(sprintf(Wx::gettext("Match failure in %s:  %s"), $regex, $@));
+        $self->{matched_text}->SetValue( sprintf( Wx::gettext("Match failure in %s:  %s"), $regex, $@ ) );
         $self->{matched_text}->EndTextColour;
         return;
@@ -484 +484 @@
     if ($warning) {
         $self->{matched_text}->BeginTextColour(Wx::wxRED);
-        $self->{matched_text}->SetValue(sprintf(Wx::gettext("Match warning in %s:  %s"), $regex, $warning));
+        $self->{matched_text}->SetValue( sprintf( Wx::gettext("Match warning in %s:  %s"), $regex, $warning ) );
         $self->{matched_text}->EndTextColour;
         return;
@@ -503 +503 @@
     } else {
         $self->{matched_text}->BeginTextColour(Wx::wxRED);
-        $self->{matched_text}->SetValue(Wx::gettext("No match"));
+        $self->{matched_text}->SetValue( Wx::gettext("No match") );
         $self->{matched_text}->EndTextColour;
     }
@@ -518 +518 @@
         $self->{result_text}->SetValue($result_text);
     }
-    
+
     $self->{matched_text}->EndTextColour;