=head1 VERSION
-Version 1.01
+Version 1.11
=cut
-our $VERSION = '1.01';
+our $VERSION = '1.11';
=head1 DESCRIPTION
+This command is the base for all C<perl>-based commands.
+It handles the suppression generation and sets the main command-line flags.
+
=cut
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,