=head1 VERSION
-Version 1.13
+Version 1.15
=cut
-our $VERSION = '1.13';
+our $VERSION = '1.15';
=head1 DESCRIPTION
return $self->{suppressions_tag};
}
+sub check_suppressions_file {
+ my ($self, $file) = @_;
+
+ {
+ open my $fh, '<', $file or return 0;
+
+ local $_;
+ while (<$fh>) {
+ return 1 if /^\s*fun:Perl_/;
+ }
+
+ close $fh;
+ }
+
+ return 0;
+}
+
sub filter {
my ($self, $session, $report) = @_;
=head1 COPYRIGHT & LICENSE
-Copyright 2009,2010,2011,2013 Vincent Pit, all rights reserved.
+Copyright 2009,2010,2011,2013,2015 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.
XSLoader::load('Test::Valgrind', $Test::Valgrind::VERSION);
};
-unless ($@) {
- Test::Valgrind::notleak("valgrind it!");
-} else {
+if ($@) {
diag $@;
*Test::Valgrind::DEBUGGING = sub { 'unknown' };
+} else {
+ Test::Valgrind::notleak("valgrind it!");
}
plan tests => 1;