=head1 VERSION
-Version 1.16
+Version 1.19
=cut
-our $VERSION = '1.16';
+our $VERSION = '1.19';
=head1 DESCRIPTION
=cut
+use Scalar::Util ();
+
use base qw<Test::Valgrind::Tool>;
=head1 METHODS
my %args = @_;
- my $callers = delete $args{callers} || 50;
- $callers =~ s/\D//g;
+ my $callers = delete $args{callers};
+ $callers = 24 unless $callers;
+ die 'Invalid number of callers'
+ unless Scalar::Util::looks_like_number($callers) and $callers > 0
+ and $callers <= 24;
my $self = bless $class->Test::Valgrind::Tool::new(%args), $class;
$self;
}
-sub new_trainer { shift->new(callers => 50) }
+sub new_trainer { shift->new(callers => 24) }
=head2 C<callers>
'--error-limit=yes',
);
- push @args, '--track-origins=yes' if $sess->version ge '3.4.0'
+ push @args, '--track-origins=yes' if $sess->version >= '3.4.0'
and not $sess->do_suppressions;
push @args, $self->SUPER::args(@_);
=head1 COPYRIGHT & LICENSE
-Copyright 2009,2010,2011,2013,2015 Vincent Pit, all rights reserved.
+Copyright 2009,2010,2011,2013,2015,2016 Vincent Pit, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
use base qw<Test::Valgrind::Report>;
-our $VERSION = '1.16';
+our $VERSION = '1.19';
my @kinds = qw<
InvalidFree