...

sub scan_resultfiles($)
{
  my $this = shift;

  foreach my $entry (@{$this->{errorfiles}->{lint}})
  {
     $this->parse_file(File::Spec->catfile(File::Spec->catdir($this->{root}, qw(lint\msg)), $entry));
  }
}

...