Changeset 8561

Timestamp:

10/03/09 04:46:35 (2 years ago)

Author:

Sewi

Message:

The syntax checker also showed errors from included files (use/require) as errors in the local testfile.

File:

• trunk/Padre/lib/Padre/Task/SyntaxChecker/Perl.pm (modified) (3 diffs)

trunk/Padre/lib/Padre/Task/SyntaxChecker/Perl.pm

@@ -59 +59 @@
     # Execute the syntax check
     my $stderr = '';
+    my $testfilename;
     SCOPE: {
 
@@ -67 +68 @@
         $file->print( $self->{text} );
         $file->close;
+        $testfilename = $file->filename;
 
         # Run with console Perl to prevent unexpected results under wperl
@@ -166 +168 @@
         }
 
-        if ( $message =~ s/\sat(?:\s|\x1F)+.+?(?:\s|\x1F)line(?:\s|\x1F)(\d+)//o ) {
-            $cur->{line} = $1;
+        if ( $message =~ s/\sat(?:\s|\x1F)+(.+?)(?:\s|\x1F)line(?:\s|\x1F)(\d+)//o ) {
+            next if $1 ne $testfilename;
+            $cur->{line} = $2;
             $cur->{msg}  = $message;
         }