Changeset 5510

Timestamp:

06/23/09 11:23:53 (3 years ago)

Author:

azawawi

Message:

[Perl 6] 'Comment error line' is more accurate.

File:

• trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6/Perl6Document.pm (modified) (1 diff)

trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6/Perl6Document.pm

@@ -640 +640 @@
         
         # add "comment error line" as the last resort to solving an issue
-        push @items, {
-            text     => Wx::gettext('Comment error line'),
-            listener => sub {
-                # comment current error by putting a hash and a space
-                # since #( is an embedded comment in Perl 6!
-                # see S02:166
-                my $line_start = $editor->PositionFromLine( $current_line_no );
-                $editor->InsertText($line_start, '# ');
-            },
-        };
+        foreach my $issue ( @{$self->{issues}} ) {
+            my $issue_line_no = $issue->{line} - 1;
+            if($issue_line_no == $current_line_no) {
+                push @items, {
+                    text     => Wx::gettext('Comment error line'),
+                    listener => sub {
+                        # comment current error by putting a hash and a space
+                        # since #( is an embedded comment in Perl 6!
+                        # see S02:166
+                        my $line_start = $editor->PositionFromLine( $current_line_no );
+                        $editor->InsertText($line_start, '# ');
+                    },
+                };
+                last;
+            }
+        }
         
     } else {