Changeset 5413

Timestamp:

06/20/09 06:17:58 (3 years ago)

Author:

azawawi

Message:

[Perl 6] Added a "fix POD" quick fix for "unmatched =begin/=end Pod pairs"

File:

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

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

@@ -263 +263 @@
                 $comment_error_action = 1;
             
-            } elsif($issue_msg =~ /^Obsolete use of C++ constructor syntax/i) {
+            } elsif($issue_msg =~ /^Obsolete use of C\+\+ constructor syntax/i) {
 
                 Wx::Event::EVT_MENU(
@@ -270 +270 @@
                     sub { 
                         #XXX-implement Use Perl 6 constructor syntax
+                    },
+                );
+                $comment_error_action = 1;
+            
+            } elsif($issue_msg =~ /^\=begin\s+(.+?)\s+without matching \=end/i) {
+
+                Wx::Event::EVT_MENU(
+                    $main, 
+                    $menu->Append( -1, Wx::gettext("Fix POD") ),
+                    sub { 
+                        #XXX-implement Fix POD
                     },
                 );