Changeset 5410

Timestamp:

06/20/09 05:52:32 (3 years ago)

Author:

azawawi

Message:

[Perl 6] Quick fix for 'Use ~ instead of . for string concatenation'

File:

• trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6/Perl6Document.pm (modified) (2 diffs)

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

@@ -202 +202 @@
             my $issue_msg = $issue->{msg};
             my $comment_error_action = 0;
-            if($issue_msg =~ /Variable\s+(.+?)\s+is not predeclared at/i) {
+            if($issue_msg =~ /^\s*Variable\s+(.+?)\s+is not predeclared at/i) {
                 
                 my $var_name = $1;
@@ -241 +241 @@
                 $comment_error_action = 1;
             
+            } elsif($issue_msg =~ /^Obsolete use of . to concatenate strings/i) {
+
+                Wx::Event::EVT_MENU(
+                    $main, 
+                    $menu->Append( -1, Wx::gettext("Use ~ instead of . for string concatenation") ),
+                    sub { 
+                        #XXX-implement use ~ instead of . for string concatenation
+                    },
+                );
+                $comment_error_action = 1;
+            
             }