Changeset 5279

Timestamp:

06/17/09 20:48:13 (3 years ago)

Author:

azawawi

Message:

[Perl 6] STD error/warning parsing is now case insensitive. and added support for "Undeclared routine" warning.

File:

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

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

@@ -184 +184 @@
         my $issues = [];
         for my $msg (@messages) {
-            if($msg =~ /^\#\#\#\#\# PARSE FAILED \#\#\#\#\#/) {
+            if($msg =~ /^\#\#\#\#\# PARSE FAILED \#\#\#\#\#/i) {
                 # the following lines are errors until we see the warnings section
                 $severity = 'E';
-            } elsif($msg =~ /^Potential difficulties/) {
+            } elsif($msg =~ /^Potential difficulties/i) {
                 # all rest are warnings...
                 $severity = 'W';
+            } elsif($msg =~ /^Undeclared routine/i) {
+                # all rest are warnings...
+                $severity = 'W';
+            } elsif($msg =~ /^\s+(.+?)\s+used at (\d+)/i) {
+                # record the line number
+                $lineno = $2;
             } elsif($msg =~ /line (\d+):$/i) {
                 # record the line number
                 $lineno = $1;
-            } elsif($msg =~ /^Can't locate object method ".+?" via package "STD"/) {
+            } elsif($msg =~ /^Can't locate object method ".+?" via package "STD"/i) {
                 # STD lex cache is corrupt...
                 $msg = Wx::gettext("'STD Lex Cache' is corrupt. Please click on Plugins/Perl6/Cleanup STD Lex Cache and then re-open the file.");