Changeset 11061

Timestamp:

03/10/10 23:54:50 (2 years ago)

Author:

Sewi

Message:

Some other test failures

Location:

trunk/Padre/lib/Padre

Files:

• Document/Perl.pm (modified) (1 diff)
• Task/ErrorParser.pm (modified) (1 diff)

trunk/Padre/lib/Padre/Document/Perl.pm

@@ -346 +346 @@
 # Implemented as a task. See Padre::Task::SyntaxChecker::Perl
 sub check_syntax {
-    shift->_check_syntax_internals( { @_, background => 0 } );
+    shift->_check_syntax_internals( { @_,
+        background => 0 } );
 }
 
 sub check_syntax_in_background {
-    shift->_check_syntax_internals( { @_, background => 1 } );
+    shift->_check_syntax_internals( { @_,
+        background => 1 } );
 }
 

trunk/Padre/lib/Padre/Task/ErrorParser.pm

@@ -42 +42 @@
     my $main = shift->{main};
     return if !$main;
-    my $errorlist = $main->errorlist if $main;
+    my $errorlist = $main ? $main->errorlist : undef;
     my $data      = $self->data;
     my $parser    = $self->parser;