Changeset 5411

Timestamp:

06/20/09 05:56:22 (3 years ago)

Author:

azawawi

Message:

[Perl 6] Quick fix for 'Use . instead of -> for method call'

File:

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

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

@@ -252 +252 @@
                 $comment_error_action = 1;
             
+            } elsif($issue_msg =~ /^Obsolete use of -> to call a method/i) {
+
+                Wx::Event::EVT_MENU(
+                    $main, 
+                    $menu->Append( -1, Wx::gettext("Use . instead of -> for method call") ),
+                    sub { 
+                        #XXX-implement Use . instead of -> for method call
+                    },
+                );
+                $comment_error_action = 1;
+            
             }