Changeset 7499

Timestamp:

08/23/09 23:43:39 (2 years ago)

Author:

szabgab

Message:

perltidy

File:

• trunk/Padre/lib/Padre/QuickFixProvider/Perl.pm (modified) (2 diffs)

trunk/Padre/lib/Padre/QuickFixProvider/Perl.pm

@@ -39 +39 @@
                 my $line_start = $editor->PositionFromLine($current_line_no);
                 my $line_end   = $editor->GetLineEndPosition($current_line_no);
-                my $line = $editor->GetTextRange($line_start,$line_end);
+                my $line       = $editor->GetTextRange( $line_start, $line_end );
                 $line = qq{use strict;$line\n};
                 $editor->SetSelection( $line_start, $line_end );
                 $editor->ReplaceSelection($line);
-            }
+                }
         };
     }
@@ -52 +52 @@
                 my $line_start = $editor->PositionFromLine($current_line_no);
                 my $line_end   = $editor->GetLineEndPosition($current_line_no);
-                my $line = $editor->GetTextRange($line_start,$line_end);
+                my $line       = $editor->GetTextRange( $line_start, $line_end );
                 $line = qq{use warnings;$line\n};
                 $editor->SetSelection( $line_start, $line_end );
                 $editor->ReplaceSelection($line);
-            }
+                }
         };
     }