sub report_class_analysis { 'Test::Valgrind::Tool::memcheck::Report' }
sub args {
- my ($self, $sess) = @_;
+ my $self = shift;
+ my ($sess) = @_;
my @args = (
'--tool=memcheck',
push @args, '--xml=yes';
}
- push @args, $self->SUPER::args();
+ push @args, $self->SUPER::args(@_);
return @args;
}