=head1 VERSION
-Version 1.10
+Version 1.12
=cut
-our $VERSION = '1.10';
+our $VERSION = '1.12';
=head1 DESCRIPTION
use Env::Sanctify ();
+use Test::Valgrind::Suppressions;
+
use base qw/Test::Valgrind::Command Test::Valgrind::Carp/;
=head1 METHODS
sub env {
Env::Sanctify->sanctify(
env => {
- PERL_DESTRUCT_LEVEL => 2,
+ PERL_DESTRUCT_LEVEL => 3,
PERL_DL_NONLAZY => 1,
},
);
or not $report->isa('Test::Valgrind::Report::Suppressions');
my $data = $report->data;
- $data =~ s/^[^\r\n]*\bPerl_runops_(?:standard|debug)\b.*//ms;
+ $data =~ s/[^\r\n]*\bPerl_runops_(?:standard|debug)\b.*//s;
+ $data = Test::Valgrind::Suppressions->strip_tail($session, $data);
$report->new(
id => $report->id,
=head1 COPYRIGHT & LICENSE
-Copyright 2009 Vincent Pit, all rights reserved.
+Copyright 2009,2010 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.