Changeset 5365

Timestamp:

06/19/09 10:10:52 (3 years ago)

Author:

azawawi

Message:

[Perl 6] Handle undeclared rountine(s) warning more properly

File:

• trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6/Perl6ColorizerTask.pm (modified) (3 diffs)

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

@@ -183 +183 @@
         my ($lineno, $severity);
         my $issues = [];
+        my $prefix = '';
         for my $msg (@messages) {
             if($msg =~ /^\#\#\#\#\# PARSE FAILED \#\#\#\#\#/i) {
@@ -192 +193 @@
             } elsif($msg =~ /^Undeclared routine/i) {
                 # all rest are warnings...
+                $prefix = 'Undeclared routine: ';
+                $lineno = undef;
                 $severity = 'W';
             } elsif($msg =~ /^\s+(.+?)\s+used at (\d+)/i) {
@@ -207 +210 @@
             }
             if($lineno) {
-                push @{$issues}, { line => $lineno, msg => $msg, severity => $severity, };
+                push @{$issues}, { line => $lineno, msg => $prefix . $msg, severity => $severity, };
             }
         }