Changeset 5408

Timestamp:

06/20/09 05:33:20 (3 years ago)

Author:

azawawi

Message:

[Perl 6] initial quick fix implementation for "Variable is not predeclared" warning

File:

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

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

@@ -200 +200 @@
         my $issue_line_no = $issue->{line} - 1;
         if($issue_line_no == $current_line_no) {
-            if($issue->{msg} =~ /^Undeclared routine:\s+(.+?)\s+used/i) {
+            my $issue_msg = $issue->{msg};
+            my $comment_error_action = 0;
+            if($issue_msg =~ /Variable\s+(.+?)\s+is not predeclared at/i) {
+                
+                my $var_name = $1;
+                Wx::Event::EVT_MENU(
+                    $main, 
+                    $menu->Append( -1, sprintf( Wx::gettext("Insert declaration for '%s'"), $var_name) ),
+                    sub { 
+                        #XXX-implement insert variable declaration
+                    },
+                );
+                $comment_error_action = 1;
+            
+            } elsif($issue_msg =~ /^Undeclared routine:\s+(.+?)\s+used/i) {
+                
                 my $routine_name = $1;
                 Wx::Event::EVT_MENU(
                     $main, 
-                    $menu->Append( -1, sprintf( Wx::gettext("Insert sub '%s'\t"), $routine_name) ),
+                    $menu->Append( -1, sprintf( Wx::gettext("Insert sub '%s'"), $routine_name) ),
                     sub { 
                         #XXX-implement insert routine
                     },
                 );
+                $comment_error_action = 1;
+            
+            }
+            
+            if($comment_error_action) {
                 Wx::Event::EVT_MENU(
                     $main, 
@@ -217 +237 @@
                 );
             }
+            
         }
     }